(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    497475,      10951]
NotebookOptionsPosition[    484754,      10603]
NotebookOutlinePosition[    485148,      10620]
CellTagsIndexPosition[    485105,      10617]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<@\>\"", "]"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalA]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.509837612328125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalB]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.509837612328125*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalC]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.50983761234375*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Clear :: \
wrsym\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.50983761234375*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"<<", "BISfit`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "Data`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "Matcher`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "Classifier`"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5079394440625*^9, 3.507939453625*^9}, {
  3.508062592625*^9, 3.508062595078125*^9}, {3.508321843125*^9, 
  3.508321859734375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.507939517171875*^9, 3.507939522109375*^9}, 
   3.50983760725*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalA]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507939526609375*^9, 3.5080433963125*^9, 
  3.50830306321875*^9, 3.508314750640625*^9, 3.50836790634375*^9, 
  3.50847269271875*^9, 3.50853975465625*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalB]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507939526609375*^9, 3.5080433963125*^9, 
  3.50830306321875*^9, 3.508314750640625*^9, 3.50836790634375*^9, 
  3.50847269271875*^9, 3.50853975465625*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Clear", "::", "wrsym"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\[FormalC]\\)\[NoBreak] is \
Protected. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\
\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/wrsym\\\", ButtonNote -> \
\\\"Clear::wrsym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507939526609375*^9, 3.5080433963125*^9, 
  3.50830306321875*^9, 3.508314750640625*^9, 3.50836790634375*^9, 
  3.50847269271875*^9, 3.50853975465625*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Clear :: \
wrsym\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.507939526609375*^9, 3.5080433963125*^9, 
  3.50830306321875*^9, 3.508314750640625*^9, 3.50836790634375*^9, 
  3.50847269271875*^9, 3.508539754671875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"check", " ", "new", " ", "nxr", " ", "data"}], ","}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.50793970103125*^9, 3.507939727046875*^9}, {
  3.5079397615*^9, 3.5079397758125*^9}, {3.5082828928125*^9, 
  3.508282901484375*^9}, {3.50831819671875*^9, 3.50831820046875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"nxrData", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"fd", "=", 
     RowBox[{"Filterd", "[", 
      RowBox[{"data", "[", 
       RowBox[{"[", "9", "]"}], "]"}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"fdata", "=", 
     RowBox[{"Map", "[", 
      RowBox[{"Filterd", ",", "data"}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"fdata", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}], ";"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.50793950928125*^9, 3.507939584046875*^9}, 
   3.50828290578125*^9, 3.508299892140625*^9, {3.508472704578125*^9, 
   3.508472705109375*^9}, {3.50847274371875*^9, 3.508472743890625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Dimensions", "[", "data", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.50793950928125*^9, 3.507939638265625*^9}, 
   3.508299738890625*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "138", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.508303067125*^9, 3.5083053034375*^9, 
  3.508367947734375*^9, 3.508472749953125*^9, 3.508713976296875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"now", "  ", 
   StyleBox["normalize",
    FontColor->RGBColor[0, 0, 1]], " ", "the", " ", "data", " ", "first"}], 
  "*)"}]], "Input",
 CellChangeTimes->{3.50831513803125*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ffdata", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dimensions", "[", "ffdata", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f1", "=", 
   RowBox[{"Mean", "[", "ffdata", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f2", "=", 
   RowBox[{"StandardDeviation", "[", "ffdata", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sdata", "=", 
   RowBox[{"Standardize", "[", "ffdata", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nsdata", "=", 
   RowBox[{
    RowBox[{"Reap", "[", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"i", "=", "1"}], ";", 
        RowBox[{"td", "=", "sdata"}]}], ",", 
       RowBox[{"i", "\[LessEqual]", 
        RowBox[{"Length", "[", "data", "]"}]}], ",", 
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Sow", "[", 
         RowBox[{"Take", "[", 
          RowBox[{"td", ",", "2"}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"td", "=", 
         RowBox[{"Drop", "[", 
          RowBox[{"td", ",", "2"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
      "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "nsdata", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fdata", "=", "nsdata"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5082998800625*^9, 3.50829988165625*^9}, {
   3.508299941484375*^9, 3.5082999424375*^9}, 3.50829997278125*^9, {
   3.508300050296875*^9, 3.50830008309375*^9}, 3.508303113109375*^9, {
   3.508303148265625*^9, 3.5083031484375*^9}, {3.50831469009375*^9, 
   3.508314703453125*^9}, {3.508314737640625*^9, 3.508314743234375*^9}, {
   3.508314813109375*^9, 3.508314835421875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "276"}], "}"}]], "Output",
 CellChangeTimes->{
  3.508300084*^9, 3.508303073234375*^9, 3.508303149921875*^9, 
   3.50830530496875*^9, 3.508314754078125*^9, {3.508314829203125*^9, 
   3.508314836671875*^9}, 3.508367949828125*^9, 3.5084727519375*^9, 
   3.508539759125*^9, 3.5087139780625*^9, 3.509598573390625*^9, 
   3.509837622765625*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "1", "}"}], ",", 
       RowBox[{"{", "2", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], "]"}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"Partition", "[", 
    RowBox[{"%", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "46"}], "}"}]}], "]"}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"Flatten", "[", 
    RowBox[{"%", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "1"}], "]"}], "]"}], "]"}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"pr", "=", 
    RowBox[{"Partition", "[", 
     RowBox[{"%", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Dimensions", "[", "%", "]"}], "\[IndentingNewLine]", 
    RowBox[{"ListPlot", "[", "pr", "]"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.50830372709375*^9, 3.50830375690625*^9}, {
   3.508303820046875*^9, 3.50830397646875*^9}, 3.508305291109375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"hs", "=", 
     RowBox[{"Histogram", "[", 
      RowBox[{"dsame", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "20", ",", "0.2"}], "}"}], ",", 
       "\"\<Probability\>\"", ",", 
       RowBox[{"ColorFunction", "\[Rule]", 
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", "x", "}"}], ",", "Black"}], "]"}]}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"hd", "=", 
     RowBox[{"Histogram", "[", 
      RowBox[{"ddiff", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "40", ",", "0.2"}], "}"}], ",", 
       "\"\<Probability\>\"", ",", 
       RowBox[{"ChartStyle", "->", 
        RowBox[{"Opacity", "[", "0.5", "]"}]}]}]}]}]}], "*)"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{",", 
      RowBox[{"ColorFunction", "\[Rule]", 
       RowBox[{"Function", "[", 
        RowBox[{
         RowBox[{"{", "x", "}"}], ",", "Black"}], "]"}]}]}], "]"}], ";"}], 
   "*)"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Histogram", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"dsame", ",", "ddiff"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "40", ",", "0.2"}], "}"}], ",", 
      "\"\<Probability\>\"", ",", 
      RowBox[{"ChartLayout", "\[Rule]", "\"\<Overlapped\>\""}]}], "]"}], 
    ";"}], "*)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.507954162953125*^9, 3.50795416384375*^9}, {
   3.508045473265625*^9, 3.508045480984375*^9}, {3.508045571453125*^9, 
   3.5080455780625*^9}, {3.5080456273125*^9, 3.508045628828125*^9}, {
   3.50804571275*^9, 3.508045734984375*^9}, 3.508046060421875*^9, {
   3.508047214546875*^9, 3.508047224921875*^9}, {3.508047276328125*^9, 
   3.50804735096875*^9}, {3.508047639234375*^9, 3.50804764053125*^9}, {
   3.508047898*^9, 3.508047932171875*^9}, {3.508315235390625*^9, 
   3.508315254953125*^9}, {3.50831536084375*^9, 3.508315361625*^9}, {
   3.50831778628125*^9, 3.508317814453125*^9}, {3.508369003390625*^9, 
   3.508369003859375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"initial", " ", "functions"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"eucDist", "[", "pm_", "]"}], ":=", 
     RowBox[{"Module", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"dsame", ",", "ddiff", ",", "i", ",", "j", ",", "k"}], "}"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ddiff", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Reap", "[", 
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"i", "=", "1"}], ",", 
              RowBox[{"i", "\[LessEqual]", 
               RowBox[{
                RowBox[{"Length", "[", "pm", "]"}], "-", "1"}]}], ",", 
              RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"j", "=", 
                 RowBox[{"i", "+", "1"}]}], ",", 
                RowBox[{"j", "\[LessEqual]", 
                 RowBox[{"Length", "[", "pm", "]"}]}], ",", 
                RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
                RowBox[{"Sow", "[", 
                 RowBox[{"Flatten", "[", 
                  RowBox[{"Outer", "[", 
                   RowBox[{"EuclideanDistance", ",", 
                    RowBox[{"pm", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    RowBox[{"pm", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], ",", "1"}], "]"}], "]"}], 
                 "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], 
            "\[IndentingNewLine]", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"dsame", "=", 
         RowBox[{
          RowBox[{"Reap", "[", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", "1"}], ",", 
             RowBox[{"i", "\[LessEqual]", 
              RowBox[{"Length", "[", "pm", "]"}]}], ",", 
             RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"j", "=", "1"}], ",", 
               RowBox[{"j", "\[LessEqual]", 
                RowBox[{
                 RowBox[{"Length", "[", 
                  RowBox[{"pm", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "-", "1"}]}], ",", 
               RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
               RowBox[{"For", "[", 
                RowBox[{
                 RowBox[{"k", "=", 
                  RowBox[{"j", "+", "1"}]}], ",", 
                 RowBox[{"k", "<=", 
                  RowBox[{"Length", "[", 
                   RowBox[{"pm", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
                 RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"Sow", "[", 
                   RowBox[{"EuclideanDistance", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"pm", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"pm", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ";"}]}], 
                "\[IndentingNewLine]", 
                RowBox[{"(*", 
                 RowBox[{
                  RowBox[{"Sow", "[", 
                   RowBox[{"-", 
                    RowBox[{"Mdistance", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"fdata", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "j", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"fdata", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "[", 
                    RowBox[{"[", "k", "]"}], "]"}]}], "]"}]}], "]"}], ";"}], 
                 "*)"}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}], 
           "\[IndentingNewLine]", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"ddiff", ",", "dsame"}], "}"}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.508044624296875*^9, {3.50804474540625*^9, 3.508044781765625*^9}, {
   3.50831489646875*^9, 3.508314923625*^9}, {3.508368439375*^9, 
   3.508368492265625*^9}, {3.508368704328125*^9, 3.5083687745*^9}, 
   3.50836881615625*^9, {3.508369101828125*^9, 3.5083691046875*^9}, {
   3.508369192296875*^9, 3.508369372875*^9}, {3.5083699854375*^9, 
   3.50836998628125*^9}, {3.508371520859375*^9, 3.50837152971875*^9}, 
   3.508387407625*^9, {3.508388357640625*^9, 3.5083883583125*^9}, 
   3.508388475515625*^9, 3.508388531328125*^9, 3.50838903978125*^9, 
   3.508542107875*^9, 3.508579561765625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"split", " ", "6", " ", "methods", " ", "data"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pdata", "=", "\[IndentingNewLine]", 
     RowBox[{"Partition", "[", 
      RowBox[{"fdata", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "46"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Dimensions", "[", "pdata", "]"}], ";"}], "\n", "\n", 
   RowBox[{
    RowBox[{"pd", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"pdata", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "1", "}"}], ",", 
         RowBox[{"{", "2", "}"}], ",", 
         RowBox[{"{", "3", "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "}"}]}], "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.50830318709375*^9, 3.50830320634375*^9}, {
  3.508303244703125*^9, 3.50830326740625*^9}, {3.508303300328125*^9, 
  3.508303304328125*^9}, {3.508303399109375*^9, 3.508303470515625*^9}, {
  3.508303548734375*^9, 3.50830355021875*^9}, {3.50830359275*^9, 
  3.508303621375*^9}, {3.508305658125*^9, 3.508305663390625*^9}, {
  3.508314850125*^9, 3.508314851546875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "6", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{3.50831484578125*^9, 3.508367962328125*^9, 
  3.508472756125*^9, 3.5085397656875*^9, 3.508713981421875*^9, 
  3.50959858159375*^9, 3.509837627375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"try", " ", "first", " ", 
    RowBox[{"method", " ", ":", 
     RowBox[{"\:98df\:6307", "-", "\:4e2d\:6307"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pm1", "=", 
     RowBox[{"pd", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "All", ",", "1"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.508043775171875*^9, 3.508043824453125*^9}, {
   3.508043880390625*^9, 3.508043887671875*^9}, {3.508044105875*^9, 
   3.508044107890625*^9}, {3.5080442595625*^9, 3.50804427909375*^9}, {
   3.508044423109375*^9, 3.50804446128125*^9}, 3.50829975303125*^9, {
   3.508305515625*^9, 3.508305642828125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{{3.508305612703125*^9, 3.508305630453125*^9}, 
   3.508314881390625*^9, 3.50836796990625*^9, 3.50836949028125*^9, 
   3.508472760796875*^9, 3.508539767484375*^9, 3.508540304953125*^9, 
   3.508713986671875*^9, 3.509598588625*^9, 3.5098376295*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pm", "=", "pm1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.50831489990625*^9, 3.50831490221875*^9}, {
  3.508318224109375*^9, 3.50831823865625*^9}, {3.50831832915625*^9, 
  3.508318329296875*^9}, {3.508318389578125*^9, 3.508318389921875*^9}, {
  3.508318438390625*^9, 3.50831843859375*^9}, {3.508318487578125*^9, 
  3.50831849065625*^9}, {3.508368401671875*^9, 3.5083684065*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{3.508318240328125*^9, 3.508318330515625*^9, 
  3.508318390625*^9, 3.50831843928125*^9, 3.50831849165625*^9, 
  3.5083202176875*^9, 3.508367975375*^9, 3.50836949165625*^9, 
  3.50847276203125*^9, 3.5085397735625*^9, 3.508540306453125*^9, 
  3.508713987796875*^9, 3.509598590734375*^9, 3.509837632296875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Euclidean", " ", "distance", " ", "distribution"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.5080449235*^9, 3.508044962015625*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ddiff", ",", "dsame"}], "}"}], "=", 
   RowBox[{"eucDist", "[", "pm", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"ns", ",", "nd"}], "}"}], "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Length", "[", "dsame", "]"}], ",", 
    RowBox[{"Length", "[", "ddiff", "]"}]}], "}"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.507954191578125*^9, 3.507954192515625*^9}, {
   3.508044822921875*^9, 3.50804486378125*^9}, {3.50836850771875*^9, 
   3.5083685211875*^9}, 3.50836878371875*^9, {3.5083690264375*^9, 
   3.508369031359375*^9}, 3.508369408375*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "4900"}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.507954193140625*^9, 3.508044865375*^9, 
  3.5083149681875*^9, 3.5083182451875*^9, 3.50831833434375*^9, 
  3.508318394265625*^9, 3.5083184435*^9, 3.50831849475*^9, 
  3.508320221109375*^9, 3.508369408375*^9, 3.508369500359375*^9, 
  3.50847276465625*^9, 3.5095985930625*^9}],

Cell[BoxData[{
 RowBox[{"Min", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mdsame", "=", 
  RowBox[{"Mean", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ddsame", "=", 
   RowBox[{"StandardDeviation", "[", "dsame", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mddiff", "=", 
  RowBox[{"Mean", "[", "ddiff", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"dddiff", "=", 
  RowBox[{"StandardDeviation", "[", "ddiff", "]"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508045494796875*^9, 3.5080454956875*^9}, {
   3.50804559071875*^9, 3.508045605125*^9}, {3.508046121859375*^9, 
   3.508046128703125*^9}, {3.508315013625*^9, 3.5083150315625*^9}, 
   3.508369408375*^9}],

Cell[BoxData["0.25408048717959136`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598594984375*^9}],

Cell[BoxData["19.164612920050864`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598594984375*^9}],

Cell[BoxData["1.9838173006826991`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598594984375*^9}],

Cell[BoxData["3.6703586339503405`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598594984375*^9}],

Cell[BoxData["0.15119496551329165`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598594984375*^9}],

Cell[BoxData["36.95213370917016`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598594984375*^9}],

Cell[BoxData["7.545473166834863`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598595*^9}],

Cell[BoxData["5.9864054387434065`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508318246984375*^9, 3.508318335140625*^9, 
  3.508318395484375*^9, 3.508318444578125*^9, 3.50831849546875*^9, 
  3.508320224*^9, 3.508369408375*^9, 3.508369501203125*^9, 
  3.508472767234375*^9, 3.509598595*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dx", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dds", "=", 
   RowBox[{
    RowBox[{"BinCounts", "[", 
     RowBox[{"dsame", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "ns"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ddd", "=", 
    RowBox[{
     RowBox[{"BinCounts", "[", 
      RowBox[{"ddiff", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "nd"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", "dx"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Length", "[", "ddd", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdds", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "dds"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pddd", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "ddd"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508046068703125*^9, 3.50804611365625*^9}, {
   3.508047017546875*^9, 3.50804703178125*^9}, {3.50804714903125*^9, 
   3.50804714928125*^9}, {3.508047457359375*^9, 3.508047458265625*^9}, {
   3.50804826775*^9, 3.508048270234375*^9}, {3.508060542875*^9, 
   3.5080605431875*^9}, {3.508283864828125*^9, 3.5082838804375*^9}, 
   3.508315076171875*^9, {3.50831626828125*^9, 3.50831627415625*^9}, {
   3.508316332125*^9, 3.5083163555*^9}, 3.508316482609375*^9, 
   3.508318363109375*^9, 3.508318505578125*^9, 3.508320243375*^9, {
   3.5083695633125*^9, 3.50836958075*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p50", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
       RowBox[{"Joined", "\[Rule]", "True"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "20"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508318272046875*^9, 3.508318284125*^9}, 
   3.508318455171875*^9, {3.50832030325*^9, 3.50832030403125*^9}, 
   3.508370095*^9, 3.50847277590625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p50", "=", 
   GraphicsBox[{
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdz7sOAUEUBuANiYQoiI0QIut+v+1qZbZTr0eQoKSm9gYaWmqVwgMoSahE
qRQ6lY5xdmfiP8lm82fO+c5Msjfq9l2Koujfj/+dmqqbzm2yZ8sFryt7WrvE
7HG2852tx23fZXViLYPXi/FTa7exz9+M5rfM5kznnPrdprNnOODlEZnmvSbN
z9nxwMtvKn8VgP6gyOSHRKZ5FfaFwYuAFwUvBl4cvAR4GvRr4j3kJ2E+BfvS
4GXAk5m8rPDJy4GXB68AnszkFeF+JfDK4FXAk5m8Kng1cV/y6uA1oF9m8mX+
jRtN2CczlQ6ezOTpcB8DPJk/lw66lg==
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQOu9eqrn/YW2s+aCQI37SOXHbG+1NQH5b+072X+
HhRdPMPexBgEPtuHBx0rVuNYCJX/af8mnvfAQq0l9lDjHJJZhP/OXbMMqp7Z
QdPPSvHmy5X26WkgwOZQ9jmaQ2LpKqh+Todl+jYPru9fZX/2DAjwODxTErSb
f20p1DwBh0xH/voFDEuh6gUdlnx/HpV6eCHUfGEHa9tmneBHc6H6RRzuHDlU
c3nNXKh9Yg5tfcu8nykthJon4XDyamVh5JaZUPMkHW715H1P2DAFap60Q1bs
zoM362ZCzZNxsHfS1nxsORlqnpzDHmXdFw/5p0DNU3DYuNLkyZ306VD1ClD3
TYSar+gACd+JUP1KDhLTXWdffNsHtU/ZgXPtkp7nPhOg5qk4AANLMmXmJKh5
Kg7MBSu4nv6AmafqcGKu6ptn2ydAzVNzUAYF19RuqHnqDpas+ssfPG2Bmqfh
8GnH5pa7f9qg5mk4lF7fePSeWhvUPE2H1TkWSbeEO6HmaTlkqKbapDdNgJqn
DVcPMU/H4cfX9WwPAlqh5uk4/DNa0/FoSTPUPF04H2KeHtT8Sqh5+g4LPtnH
Xc2ugZpn4JCisNf+ulY3VL0BNHzqoOYbOMDSJ1i7sSHUfyVQ+wwd9LrNFt+2
rYCaZwSNr2KoeUbQ+GqBmmfkMLXCPerC4Xqoe4yh4VkANQ/BBwB9cVT4
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    ImageSize->{454.1666666666673, Automatic},
    PlotRange->{{0, 20}, {0, 0.4}},
    PlotRangeClipping->True]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831851359375*^9, 3.5083185195625*^9}, 3.508370095*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p40", "=", 
   GraphicsBox[{
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdzrsJAkEQxvFBDAwMRERERDyf5+POxxWwW4MlCMa2YBtnG0ZmFqCRFmAJ
hobe3o7I/T9Yhh/fDkywO2z3JREJs+fmL0meh/F6mfvN5al+67zq/JhT6nJR
i/X7Z3XZSiEVuGr9fqr/a+jrcANuwi24DXfgLtyDA9zXRz+Ah/AI+2P0EziE
p/AMnsMLOIJjeAmvij7CskYPywY9LAn6v7/7mzJO
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQNiqYFA1GYP4T2wvzXv7c15b2dC+R/st9je3mx7
ezGU/8M+euXUqJVTV0H5DA4T2DKBaAOUz+KgbF4ERJuhfA6HyQacQATj8zjU
fw0HovVQvoBD1UJxIIKZJ+QAlq5fCuWLOHzWvf9J9/4iKF/MYVoUyAEweQmH
zRrdmzS6YfJSDrLnHsqcezgHypdxALl+s+1sKF/OIWbf0+h9T2F8BYf4F61x
L1rnQfmKDqj+V3K46rX2itfaKVC+sgMkvKZB+SoOs2aCAZSv6hDiwApEMPVq
DlNcI0EIyld3mCS9cyIQQfkaDgo/GuV/NPZD+ZpQ8zqhfC2H+SDn3OyD8rXR
1Os4SC1xBKIuKF/XQcR6o7D1xmYoX89Bsv+jRP/HCihfH+r+MijfwEFILRGI
miD8BgM09YZQ84qh8oZQ9UlQeSOo/VlQeSNo+OdA5Y2h8lFQeWO4fgD/WKX4

       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    ImageSize->{528.3333333333346, Automatic},
    PlotRange->{{0, 20}, {0, 0.4}},
    PlotRangeClipping->True]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831846440625*^9, 3.508318470875*^9}, 3.508370095*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p30", "=", 
   GraphicsBox[{
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdzs0JwkAQhuFBPHjwEEVEJIjRGOO/MQXs1mAJQs62YBvmZhkeLUFswBJy
zFGTXZF9P1iWh28GJjidj1lDROLvq/5fOnWeyuit0jov60Ll1yp361KZ+Ye1
aLdvanHSgtva7N/svIe+C/fgPjyAh7APj+AxHOC+CfopHMIz7Efo53AML+Al
vILX8Abewjt47/oCS4IelgN6WFL0f38AcIEnPw==
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQM9y9gPZlQ12EN4D+wXBOgycl2dBOV/sD8fzfNy
z9EFUP4P+yJXP8nwJ0ugfAaH0uSzgebX1kD5LA71Fg8+tjOvg/I5HCD6N0D5
PA7yLItfOhqsgvIFHC5VdivO3b4CyhdyUN1tFrgpezGUL+IAVj5rHpQv5vD2
lsvJdb4w+yUcplVLJe5cvhDKl3Lw+sg0U0Qf5l4ZB0EwgMnLOaD6RwGNr4im
X8lhy68gx9X6U6F8ZQegZYLTqmdB+SoOnbyfJ94wmA/lq0L9MwPKV4OGzxwo
X93B2SrfcMnnaVC+hoNlaszE4GMw8zUdPvw4zNhv3wPla0H9NxHK10Zzj44D
anzpOtzxm3fw7ZNOKF8Pyq+E8vWh+kuhfAOHZ8obE+2EuiH8BgMH1PRgCHVP
DVTeEGpfElTeCNW8BiOo+hyovDGq+gZjhxNLKhp9utLtAazrqh0=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    ImageSize->{535.833333333335, Automatic},
    PlotRange->{{0, 20}, {0, 0.3}},
    PlotRangeClipping->True]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831840675*^9, 3.5083184133125*^9}, 3.508370095*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p10", "=", 
   GraphicsBox[{
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdz08KgkAYh+GPaNGihURIRIhWlplm6QHGM3SEoHVX6Bp5E4/g2gt0hJYu
/Rsy7w8GeXjHxTiP1/05ERGvOe33v+zTLle9virpVg7+qb4Xgyul35dU9zQV
bTN4DhvwAl7CJryC1/AGtmAbdvCeLfoO3sMu/j+gH2EPPsE+fIYDOIQvcARf
db9huaHDEqPDkqCPrgEtOjLd
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQPiOQfFcg6W2UN4D+wFwWAhlP/BftZMEFgJ5f+A
ym+E8hkcIPqXQfksDvO/eALReiifwwGifiKUz4OmXsAB1TwhqPw0KF8Eym+D
8sXQ+BIODChACo0v44DqHzk08xUcUP2niKZeyUHmeCEQzYHyldHUq0Dl10D5
qg6o4anmMMXu5WS7l4uhfHU0vgaafZpo/tNC42ujuUcHLXx10dTroblHH03e
AJXfYIBmniFqeDUYooWvEZp+IzT7jFHVNxjD5QFPNIF3
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    ImageSize->{551.6666666666675, Automatic},
    PlotRange->{{0, 20}, {0, 0.3}},
    PlotRangeClipping->True]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831836971875*^9, 3.508318374484375*^9}, 
   3.508370095*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p20", "=", 
   GraphicsBox[{
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxd0k0KwjAQBeCiIAguFEUURVr//6uN+/QMHkFQl55Hb+ARXLtVcOsRXLty
p/E1GfoGSnjpzJcUGmwO623G87zo95jV1ulo6qKxPjV2H0l+ubxSpt46PffR
/211tfux9dCfjW3/fmcqF6fn80n/Wd9vpgruPapI/SWX4ZddxnyFzquSVyOv
Tl6DvCZ5LfJ86vfd92ANaL5N53XI65InGV7P+fD65A3IG5InGc6I7jcmb0Le
lDzJ8GbkzckLyVtQv2T4kvGfLek8yaiIPMnwJOM+ijzJXzouqmY=
       "]]}, 
     {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQNvIxoNLvWF2s+aCQI37d1ubWRKXNIL5b+E802M
QeCz/SYgT1Z7AVT+J1R+rj3UOIetyayHPKyXQdUzO3Aog2xYZJ+eBgJsDiDd
Am6roPo5HWryOoP3P19mf/YMCPA4xDlX8j41XQI1T8BhusXX6rzOxVD1gg7n
dQtffb+zCGq+sMPV9ztV/f7Og+oXcYC5B2KfGFweYp4E1L5pUPMkHSD+nwo1
TxpuPsQ8GQeIuplQ8+Qcth9Zeb/Yew7UPAW4fRD1ClD9k6DmKzpwt0wsW+Mw
A6pfCeq/KVD7lB1Qw0/FARbeEPNU0MxThbsXYp4a3D8Q89Th5kPM04DzIeZp
QN3TATVPE86HmKcFta8Jap423H6IeToOkPifADUPwYeYpwvXDzFPDypfADVP
H+r+VKh5BnD/QtQbOGisX7in7VMX1HwYv8oerN3YEKq/FGqfoQMDCjCCy0PM
M4LbBzEPwYe4xxjOh5hnDHcvAIvPTWM=
       "]]}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    ImageSize->{566.6666666666674, Automatic},
    PlotRange->{{0, 20}, {0, 0.3}},
    PlotRangeClipping->True]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5083183011875*^9, 3.5083183193125*^9}, 3.508370095*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"p10", ",", "p20", ",", "p30", ",", "p40", ",", "p50"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508318533171875*^9, 3.508318546625*^9}, 
   3.508370079421875*^9}],

Cell[BoxData[
 GraphicsBox[{{
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdz08KgkAYh+GPaNGihURIRIhWlplm6QHGM3SEoHVX6Bp5E4/g2gt0hJYu
/Rsy7w8GeXjHxTiP1/05ERGvOe33v+zTLle9virpVg7+qb4Xgyul35dU9zQV
bTN4DhvwAl7CJryC1/AGtmAbdvCeLfoO3sMu/j+gH2EPPsE+fIYDOIQvcARf
db9huaHDEqPDkqCPrgEtOjLd
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQPiOQfFcg6W2UN4D+wFwWAhlP/BftZMEFgJ5f+A
ym+E8hkcIPqXQfksDvO/eALReiifwwGifiKUz4OmXsAB1TwhqPw0KF8Eym+D
8sXQ+BIODChACo0v44DqHzk08xUcUP2niKZeyUHmeCEQzYHyldHUq0Dl10D5
qg6o4anmMMXu5WS7l4uhfHU0vgaafZpo/tNC42ujuUcHLXx10dTroblHH03e
AJXfYIBmniFqeDUYooWvEZp+IzT7jFHVNxjD5QFPNIF3
      "]]}}, {
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxd0k0KwjAQBeCiIAguFEUURVr//6uN+/QMHkFQl55Hb+ARXLtVcOsRXLty
p/E1GfoGSnjpzJcUGmwO623G87zo95jV1ulo6qKxPjV2H0l+ubxSpt46PffR
/211tfux9dCfjW3/fmcqF6fn80n/Wd9vpgruPapI/SWX4ZddxnyFzquSVyOv
Tl6DvCZ5LfJ86vfd92ANaL5N53XI65InGV7P+fD65A3IG5InGc6I7jcmb0Le
lDzJ8GbkzckLyVtQv2T4kvGfLek8yaiIPMnwJOM+ijzJXzouqmY=
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQNvIxoNLvWF2s+aCQI37d1ubWRKXNIL5b+E802M
QeCz/SYgT1Z7AVT+J1R+rj3UOIetyayHPKyXQdUzO3Aog2xYZJ+eBgJsDiDd
Am6roPo5HWryOoP3P19mf/YMCPA4xDlX8j41XQI1T8BhusXX6rzOxVD1gg7n
dQtffb+zCGq+sMPV9ztV/f7Og+oXcYC5B2KfGFweYp4E1L5pUPMkHSD+nwo1
TxpuPsQ8GQeIuplQ8+Qcth9Zeb/Yew7UPAW4fRD1ClD9k6DmKzpwt0wsW+Mw
A6pfCeq/KVD7lB1Qw0/FARbeEPNU0MxThbsXYp4a3D8Q89Th5kPM04DzIeZp
QN3TATVPE86HmKcFta8Jap423H6IeToOkPifADUPwYeYpwvXDzFPDypfADVP
H+r+VKh5BnD/QtQbOGisX7in7VMX1HwYv8oerN3YEKq/FGqfoQMDCjCCy0PM
M4LbBzEPwYe4xxjOh5hnDHcvAIvPTWM=
      "]]}}, {
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdzs0JwkAQhuFBPHjwEEVEJIjRGOO/MQXs1mAJQs62YBvmZhkeLUFswBJy
zFGTXZF9P1iWh28GJjidj1lDROLvq/5fOnWeyuit0jov60Ll1yp361KZ+Ye1
aLdvanHSgtva7N/svIe+C/fgPjyAh7APj+AxHOC+CfopHMIz7Efo53AML+Al
vILX8Abewjt47/oCS4IelgN6WFL0f38AcIEnPw==
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQM9y9gPZlQ12EN4D+wXBOgycl2dBOV/sD8fzfNy
z9EFUP4P+yJXP8nwJ0ugfAaH0uSzgebX1kD5LA71Fg8+tjOvg/I5HCD6N0D5
PA7yLItfOhqsgvIFHC5VdivO3b4CyhdyUN1tFrgpezGUL+IAVj5rHpQv5vD2
lsvJdb4w+yUcplVLJe5cvhDKl3Lw+sg0U0Qf5l4ZB0EwgMnLOaD6RwGNr4im
X8lhy68gx9X6U6F8ZQegZYLTqmdB+SoOnbyfJ94wmA/lq0L9MwPKV4OGzxwo
X93B2SrfcMnnaVC+hoNlaszE4GMw8zUdPvw4zNhv3wPla0H9NxHK10Zzj44D
anzpOtzxm3fw7ZNOKF8Pyq+E8vWh+kuhfAOHZ8obE+2EuiH8BgMH1PRgCHVP
DVTeEGpfElTeCNW8BiOo+hyovDGq+gZjhxNLKhp9utLtAazrqh0=
      "]]}}, {
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdzrsJAkEQxvFBDAwMRERERDyf5+POxxWwW4MlCMa2YBtnG0ZmFqCRFmAJ
hobe3o7I/T9Yhh/fDkywO2z3JREJs+fmL0meh/F6mfvN5al+67zq/JhT6nJR
i/X7Z3XZSiEVuGr9fqr/a+jrcANuwi24DXfgLtyDA9zXRz+Ah/AI+2P0EziE
p/AMnsMLOIJjeAmvij7CskYPywY9LAn6v7/7mzJO
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQNiqYFA1GYP4T2wvzXv7c15b2dC+R/st9je3mx7
ezGU/8M+euXUqJVTV0H5DA4T2DKBaAOUz+KgbF4ERJuhfA6HyQacQATj8zjU
fw0HovVQvoBD1UJxIIKZJ+QAlq5fCuWLOHzWvf9J9/4iKF/MYVoUyAEweQmH
zRrdmzS6YfJSDrLnHsqcezgHypdxALl+s+1sKF/OIWbf0+h9T2F8BYf4F61x
L1rnQfmKDqj+V3K46rX2itfaKVC+sgMkvKZB+SoOs2aCAZSv6hDiwApEMPVq
DlNcI0EIyld3mCS9cyIQQfkaDgo/GuV/NPZD+ZpQ8zqhfC2H+SDn3OyD8rXR
1Os4SC1xBKIuKF/XQcR6o7D1xmYoX89Bsv+jRP/HCihfH+r+MijfwEFILRGI
miD8BgM09YZQ84qh8oZQ9UlQeSOo/VlQeSNo+OdA5Y2h8lFQeWO4fgD/WKX4

      "]]}}, {
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdz7sOAUEUBuANiYQoiI0QIut+v+1qZbZTr0eQoKSm9gYaWmqVwgMoSahE
qRQ6lY5xdmfiP8lm82fO+c5Msjfq9l2Koujfj/+dmqqbzm2yZ8sFryt7WrvE
7HG2852tx23fZXViLYPXi/FTa7exz9+M5rfM5kznnPrdprNnOODlEZnmvSbN
z9nxwMtvKn8VgP6gyOSHRKZ5FfaFwYuAFwUvBl4cvAR4GvRr4j3kJ2E+BfvS
4GXAk5m8rPDJy4GXB68AnszkFeF+JfDK4FXAk5m8Kng1cV/y6uA1oF9m8mX+
jRtN2CczlQ6ezOTpcB8DPJk/lw66lg==
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQOu9eqrn/YW2s+aCQI37SOXHbG+1NQH5b+072X+
HhRdPMPexBgEPtuHBx0rVuNYCJX/af8mnvfAQq0l9lDjHJJZhP/OXbMMqp7Z
QdPPSvHmy5X26WkgwOZQ9jmaQ2LpKqh+Todl+jYPru9fZX/2DAjwODxTErSb
f20p1DwBh0xH/voFDEuh6gUdlnx/HpV6eCHUfGEHa9tmneBHc6H6RRzuHDlU
c3nNXKh9Yg5tfcu8nykthJon4XDyamVh5JaZUPMkHW715H1P2DAFap60Q1bs
zoM362ZCzZNxsHfS1nxsORlqnpzDHmXdFw/5p0DNU3DYuNLkyZ306VD1ClD3
TYSar+gACd+JUP1KDhLTXWdffNsHtU/ZgXPtkp7nPhOg5qk4AANLMmXmJKh5
Kg7MBSu4nv6AmafqcGKu6ptn2ydAzVNzUAYF19RuqHnqDpas+ssfPG2Bmqfh
8GnH5pa7f9qg5mk4lF7fePSeWhvUPE2H1TkWSbeEO6HmaTlkqKbapDdNgJqn
DVcPMU/H4cfX9WwPAlqh5uk4/DNa0/FoSTPUPF04H2KeHtT8Sqh5+g4LPtnH
Xc2ugZpn4JCisNf+ulY3VL0BNHzqoOYbOMDSJ1i7sSHUfyVQ+wwd9LrNFt+2
rYCaZwSNr2KoeUbQ+GqBmmfkMLXCPerC4Xqoe4yh4VkANQ/BBwB9cVT4
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{673.3333333333342, Automatic},
  PlotRange->{{0, 20}, {0, 0.3}},
  PlotRangeClipping->True]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.50831854809375*^9, 3.508370079421875*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ppdf1", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"3.5", "*", 
       RowBox[{"PDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"mdsame", ",", "ddsame"}], "]"}], ",", "x"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"mdsame", "-", 
         RowBox[{"3", "ddsame"}]}], ",", 
        RowBox[{"mdsame", "+", 
         RowBox[{"3", "ddsame"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Ppdf2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"1", "*", 
       RowBox[{"PDF", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"mddiff", ",", "dddiff"}], "]"}], ",", "x"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"mddiff", "-", 
         RowBox[{"3", "dddiff"}]}], ",", 
        RowBox[{"mddiff", "+", 
         RowBox[{"3", "dddiff"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Ppdf1", ",", "Ppdf2", ",", "p50", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5083197900625*^9, 3.50831982303125*^9}, {
   3.50832010434375*^9, 3.508320157453125*^9}, {3.5083203288125*^9, 
   3.508320348046875*^9}, {3.508320403203125*^9, 3.508320528109375*^9}, 
   3.508370079421875*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc4Vv//B3B7UzaZt31LWhJRr3dERpK9RyojspWd7SYim6KiFEX2yjiV
UUhU7vtukA9CZGbP3/394/fXuR7Xda5znfM+z+frXO+Dc/IyvkZDRUUVTk1F
9b+jVkxv1zK7BMbuUFTlZegDnh3hEbdZJDAhh5ahFRcfyGI4qsrCKIHZeW+P
50X4wAQhs1SMSgIrvveHRaPKBwjJ9sl6Szjst66QIRO/L/RmLRg/IuKwTIFj
o/cmfMGkhGdY/yEOO7357GN8gT+ETndmEe/jsGRb3Df51/7w5GCQ4eUcHNYR
IMCySPKH5bIh7OY9HJY2EekxyRkAWVXFRY+jcVhFGS8+Ij4Avr9WcVtzwWGO
jXlxkUE34XKf7XLhERymx6jr+SEoEBaU9ymPKeAwN227tcn8QAh/+OaWJB6H
cZUlWp54GwgPvGW2inA4zGezwt2ONQjIXAvUT7lwmJcoZjn1MAguWkTve7Ys
ju137Rnj/RwM6iMl8i8axDHTcT5qddsw6NGx9ZipEcdSyqyv5caFgXUlR/nB
SnGM7pSMgkJlGARG+R19WSKO0YjqNy8xhEO11GmVsjxxbJotc4a5Nhzk3fq1
XoWKYwsx/mnv2SNAYGnVsRqJY2N8Es1dCZHwQMpV/fhpcWzP7E3Q8KNIELf4
xl+tKo7Zv9bO3NcQCXLNr/uqjoljw+6x2m8mIkE1LkK9Skocm6UyV7mmFQXW
B1gEKpnEsZEjA43tjNGgHHuqwO6xGDaZFbmR8jgGzkwLm9nliWHrNXBUojkG
tA33WO3SxTB/FD8+QIwBC8H2INtYMSzN8YdUIlssBJYZmNm4iWHplfH/OQbF
QtOgI5vVUTHMxydUuNUyDk7LxAebvhHF9mWpNy8oEiDUrsXqVpMo9vCiC1vv
BQI0ZfxTyasWxfh7Wkc7rxNAmdZx7ddTUSywky5B6BkBFEdU/N0TRbFHSZ0p
mrgEEMubvhFlIoo5OwXoPBVKBGqOi5crfotgZ1bon7rgkwBpxaAvwyIYPQ21
j7N+EoSHNomtkkSwLtFf+wg3kmBzWmZYrVsE234afUypKgmWuvasu8pFsNnT
GrTHTyfDWGSl6fAtEeyZ8LmKUau70LHCo8PGIoI9P8cXfc0iFfpD9FXzaESw
xu+EAUOPVPhOHSUvtyWMsZqeLL4UmQoL7PNs5/4KY2KaSvJZL1JBWObDQEif
MFb/zyzzGPU98DcPs5lJE8b8XMb7sIp7IFX/27NbSBhT8uy/U4VLh8OnhR0t
eYQxbuX0b6mq6XDqnbHRBJsw9scgbjXeKB0ufWo7TrMrhDEG6ExhkekQOpm7
rjoihG29E69xGEuHr/wXo0qeCGHCuWfR5RcZEB1Yl0k4JITVGAl5r13MgsC0
602ZMkIYi4rbkKZrFni+FP1VKCaEWZgkLDyLzALLkTi5Fk4hjHuRqFVfkwWK
OhavF1cOYJ92+GyXhbLhO//6iHXrAexWVV/dylw2HK1XVThkeADLoCWaRj7L
hV8rzW8HvAWxLy/MWkWd86HQ3mdD100Q03ilVn6TkA9Xu6SPvL0siPXNP5mb
K82HqZy7+VXGgljDb6lXaCEfltQcA9OVBLFRsaNG7qEFQBdFq2i2LoCVVuTi
5vIeghyHXi75tgDW4r1Xm7P+CLxlSF6/7vJjRXMckx7RReB6+VdfcDw/prJh
M5OQUwSODyYP8UXwY3dxV7obyorAiGt95oIPP9a52HrqArkIju0KuDaZ8GN+
vkmf9RSfwL9Ba8dMAX4sNfX8mfKhJ3AzdviSfiEfpmFQtXderxjCxn8fra/l
xWLUDnvG2JaAY7V7+0A5L+asksx0378ENKIWzf8+48VEVvtH3iaVAJP4Tggu
jxdz02q9rN1SAmk2PJ13wnkx+fhuDRGxUnj+WcPa8TwvZnKewXrfRCl8xh5G
MX/jwa4wd+rJR74EuXyrLzbb3JiJYl6a4ewrYGb+b7ldhAtT5n93/ppCDRC8
Pq5s2u/HRkObhfSbG4C+y5Z/1Ygde6SRb/yrpwWu8mpr3r7PjDH4xHs7Lb8B
KquNQ4VSDFjVmfOHDPZ3ACPtV4GLV2iwsgNnhW48ew/MqYdthF122v6FGSo3
GvVCBJ0+TX/capujatXvxo5PkH3nuslBybk2/q8FdwgNAyA55pwvcnKkTTzo
e5OsxRcgaLFHnOEubLvpdeTK89mvkNuoGlTR+qDN49rUkYB/X0FiynJpzDyz
zWeI/tyZja/Qy2OXdlAkuK3bLUm+g24QSqn+Kk/yZ0Ol8Z+Ep0KDIFgU+iMt
swbEz62Il+kMQsjy7RCnAx9AMEc8pfkh5XwOWzZbxm44RPIJZnk6CGQ5lXyz
5W64J1h72LR0EJTtFlp1+nrhd9fRP99rBmHD6Ugk/9l+EIt2OVL7YRBqex61
7yx/gX6/pu+5S4OgkB+p3237A1alioJYzhLhgTvfT5OeH3B/mxkfpEUEtlMv
PIZUf8Lq2bXuMV0izBC/Ji/wDcHVYtsfL42JULpfrp9vYBjus937j/0qEXg0
XEorJf4D5jfdUsxxREivZT+8mzUOocxLDJ87idAtbLmm0TcO31IufmvsJgJN
TGFbPP1viKgEvfw+Ivgan7zE6f8bmOipd82JRDCed/SRMpqAPKYA18zfRODC
11TrsU6Beqj4IXVaEqQ+sFbJvj0D5IEdEZwaCS4nF3pHv56Bqsq8lbYzJDgW
Pv3ca20GIg06DK00SDDoECyo4/UXumhHI0J0SXBAMm9z3X4WHp2fTAyzIMGT
km/N1mfm4XLdzYUAXxIE5OFWtIPn4URMXtXrABJo33E7dLxuHpDK3Y9bgSTw
r9vuo+dfAB1ZGjr32yTgz0mC4bsLwKnQo0ifRAJbm5fiKeGLULc55SzzhATt
Jv3qsQ8W4Qj7Sub+ZyQ4dGHZMqRpEdSCpNaXS0iwq65+z2V1Ebq0eQ1eviLB
Y9FeauS5BGdfaG1/bSLBxH8zowt2/yB9GrLY+kng7XrwqfHpFQh9ZTLAsEqC
w5xW//StVsAyurqSY50Ec41xZ7UCVsDd086Ac5ME7qyjQyfLVqBVW66SYZcE
zuU5fCIiq2CjmkhfRU8G22V6wuT2KoRYh7cz85BBKP84cURgDU6cLWpt5iXD
d63LUt+V1kC9g9XxOj8ZLLKbsV6PNQhuwGXUHiCD8Sm/jcqfa8Bcd7uQFUeG
8xEj10Ob10E5qsmjVoEMDHiOxgDyOri4DlhzKZKhfUCN0Wt5HSpsan65HSaD
hmR20WWFDdCaOVPKdIwM6p0GP7UfbMAXTiKe/iQZtjxD5FHDBvy1K6pVViFD
E39JoOrXDZgKsR1wUiXDSTc6XgW2TQi47VJbqkaGY2yvDThDN4HPPvrABpBh
sWbqPkvOJgiYqezfQ2SosOObpq3ZhAKNsZS9s2Q49MonbnVmE64yOcsvaJJB
zliu7YfNFihabjWmnCfD5KYZ++CtLWAzlJh10yFDcVG0TV/6FlzwPvH0jC4Z
JFeG17CeLfCr+u8xSY8MojmZR4rVtqGx36O1y4AM9Ot+Q1wW2/CuXveF70Uy
/LUwTrztuw1PFKoMBQz/9zz7xi1LtqFGMbDF5BIZHt+aTe1o34a4e4xxfygm
kHpOHxvZBkvFOLpgIzKYZxOyWfl3AFf3HXfHmAyn15zPBR7bgVzu3TZWEzJI
WWgtjhvsADH1BVc8xUt8NPqtMTvwaPDa1xumZPh2c2RN/tEO1Db80PhGMUZs
fZL9egfQv7KrYEaGu1khu95LO2Da5PBmi+KAVasXQ+y7UMHbvmVkTsmLuYql
Hn4Xqp3vThVSrFnHR19/bhfWWhPi5yiW51uplHTchZ5nMWQlCzJw3vxinxqy
C9ckjH4EULw+WMm6k7ULgs/bUyop/nUitcGtahci5BtWJinuzPS8Rvy4C8+4
mdgFLclQtnKBS/PPLpzSzhg8R3GG2cG2V3R7UCCCDN0pDqll9hAW3wNez6Wg
JIqdeKcEEtT24GdMptlzinUDOjtWzPfgjBz/aCvFRwaf+Dr57kFptqtYP8X8
J6LFPiXvwbs74ew/Kd7NuNyrVrIH15WNXo5S/HsZgp6378FHjZ9bYxT3morK
8I7swdVB0e1fFFfXbH+O3NqD5TtCZUSKDRJn4RYrFcoII3O8pxg12WYdEqRC
OacccDUUK033/B2ToUJpvc3jeRTLHVDTzFOiQqiO2iqUYiG90txLGlQo9N/Z
cEuKOYIFFxguUSHxjQzTwxTTlBK0W+yo0FIN708qile/rT3wc6dCicmjPB8p
6/eH2eUfPogKyTiJ7KVT/FOVqDsSR4VSE2fyzCjud9N6lJVBheaIAVOcFNd/
kDSgraBC0/5+ucGU91e6kVbU2EKF2Np0d2QoLsDTbHr1UKEmkULuPkoeYhNG
in9OUCFNhQ5LNooDGw130papkE0KB6GIkiePP60mujTUaMWDdP0ExSa6+VR1
ItToGC/rBV1KHrWD2Cw8DlKjw1r79Xso+T1VElImoUqNGhs/7J6nGMdsbZ1i
So3Ez9XEHqXkff49X43rHWrkz/1UqIPSHx2b2AmdPGrENLijyUFx4ew/AXwJ
NXJWm1MyovTNnGsg7E8nNbIwHvFt1ydDq82d89dpaBD9irC3I6W/AnMbQXqc
NAjapOZuUfrtG+H6Ul6cBnm++KqaoE0G6adanDOnadAb732nc8+RIWlu77t7
EA1SLTnI5EWZHxMRnuwXCDQoC+4ymVHmC+IeAoVsGmTA/e2n0hkyLJ9sevK3
hgYVqTymG6XMI5tIf88bCzTIxMLi+pIypR88f6i9XGhRA2O+69+DZIgptlAy
vEmLLi3dFvSWJ8OwSqfz4VhaZN5jVD4rR4Y0u6Ke+UJa9JjBhUCUJsNGsV2m
9zAtiij8IeYgRob3qp/lfM3okNsh2bULnGSQ6EU2xlfpkPe7/hCvfWQItX+V
fMyPDk1lc27cYSfD4eikpaVUOuTUITFWxUyGrF7tZr9eOmSSRfewgZoM1xxe
GwZo0qO5y3f3P10gwfQHRSELI3p0cVjt0t05EngqFU6oONAjzU/Pr/n+JUEg
c0LYdjA9+txuw39wigRJ1eYvoqvo0YqLUKv9LxJUMy4xpOEY0Gwx4Up/Lwmo
K+Ray/cYUGfiIvtUEQniDjxISGVnRJcbcjcVH5OAJXafma8QI6pK5VrwLiAB
j/XqzImTjOgcoXz7dw4J5OjaBVs8GdGxoK5PGckkMLR0COgZYkSOfZbUjDdJ
kE+VpTD1mgntVCwa6muSgPCR6eu/bibEs+11/RVQvt95ISF735jQxFT6Jrs6
CfSULnfzrTOhbwcn4pqUSLDqouCqpcSMrCrPFgxIkyj7kbdFhS+ZkdPWtM4m
AwnoCuYP2OWzoEsmb2z1OojgrqbL/DmcDS0KSDZkHyPC9BUex+xkNtTsJ2r1
/hARrif9qrN9wIbo223cluWI4DoUcHWykQ05PbL7fUaMCM63C9u2l9nQtLn9
y3xWIji+2wqQdWdHqRFbsbFjg2CuXz4aasGBnBn3X+dPHYTHZczD3AL7kYLj
xVfcQ19h9i0zebGfE3W4LN2rdfsCdNKrRqyvuNF3Qd07imUDEJYU9tfiBi+S
22C6LPX3EwQ77/f9LsGPlNp064PDekEjOeVWzo4Aoif7+kX3vgf3xpL8hIYD
qEJ91msqqAMcjlVo1uUIoyeD5/kH+N5CTYURC5+VKLrifrKr1r4Vui7tDZkx
iaNS3o++3GqNkDvfc7N1VRxFn8hkczaqAWHOiYdoEIeONviRdGwrQN04UYz+
Gw5FBtSI+V6oAJt0xYcffuLQNd8bN4vVKyCP91aB8TgO7X9YoHVEpAIEDzDl
X/2HQ34B8/qpLa+AT1I+j8ApgWQLsCvs78th/wnPjH4DCXRGIqDUYvYl0Fmt
Ehw7JZA+n1/L4K0SYK709ufulkB51616tu1KgIN5xqHzowSSMfQpPXmuBPgb
fykrDEogk4Txtqn9JSAv+GF8bUwC7TrM3D754jkYfruPUqgl0fMWge2IsWeQ
Z3V2vUVdEqlgiU9TnIrhsHWSi1C1JIrel20yTtmPnZk633i3ThJJqhfqKMYW
wcWbtKw0TZLoyYReR7xPEXikBZdPYZIomCNd1U2vCEq7XVdq+yRRXbeY3u/t
QpBR04q+NC2J3tXzjL6+WgjCwrsFsTgp1MsWxVEJj4Fl2Is4nyKFPnwVI+lo
FED1uYMPy9KlkJXR++kQsQKwfTHh4p4thV58sjj1aTsfygPtNiYKpNAIVREi
1ueDMbe+8HCZFKJnuzNw5XA+5OnIOPX2SCFkL6XqIfUA5Kt/zj5nlEbJhRsW
L6Tz4ItgTp0zqzSyfpNUijHkQWiEyW2pfdKIeLin/99kLvQZdO9/xCeNluOW
9apLc8F3qv54trQ0aurNJWcczYUmkfSgWE1pZHE83HPgXA7oE3TpnW5LI0iu
uFASkQW7UtpKI1HSqC/l2S1JlyyoeqNxxT5OGvndfEaoNciCA1tqb6yTpREh
RFkUJ5QF0zcUw0zuSyPt+yJOPPWZQDDhXjlXL40+m9o8s/uXAe2iQ+Oy89Lo
/JUEF46wdAh8/Y27eEkaxbaMKbg4p4OCJVFDalUaXRgenhw0TIf0e58eie9I
o0EOM+oViXRwontrK8gqgzqIarwq3WlANV38lUVWBmXknLnSLpwG6rXe7bP2
MuhQjZP9nYFUGHTVdLB2kkGxzlNzf1pSwVOYb7Pzmgziieh6b1OaCg+jXx9+
5CGDqpW8xYOiU4HGmOG+cbAMsvKyJuUop8KHufs+9Zky6KThJUcMpYC5XJdo
ZK8MuhLFdt+GNhnmf+Q2zn6SQUd+XLxQO5IEhBQPU+svMkjiAbPosdYkaFzl
TDz+XQY9iV6pywhKAuEO25XfkzIofZ7/4+biHRi7vNSjRyuL0svfiRz/kwje
90WCeE7JoqRNjeW8BQIUyi4k9pyWRTjmrBOpnwgwWP32QdRZWXTIRXGmtJwA
p3pdsAUdWaR+kXj40g0C0O5UMn60kEWiIcOJ5n/jIcteOys2gHL9fxECyotx
0Izzql6tkEXL2yXnHHljYa7sbEdZjSySEHC/17EeA7hTPKSrDbKoYb+s2YWf
MRBn3Lj5uU0WXSzm6mwpigHDaFqNV32yaI9lYkFBKQZGx7P7Xf7KIgWWE004
m2hgfo7NkmXlUP3Tk0zpWCRoX/967dJBOVTTslN+ryQSYhSmhroU5ZCid9Sp
0rRI2K3Y11d3Qg7Zvj9fKHctEpYa7cszNOXQkwYJvCVrJPzs2fa85CCHRCOt
R2/YRkD5vMpCV5Ycsp6wtirFhcNM5QVXyJNDjid3TrzfCAM5f8eRunw5ZHL2
oTLP5zAoXI/vf/pEDvnfPLJ6IjoMsqlJFdFVcuhX8Z2a+5OhEMEd4AN9csh0
51ldd0MImJysXKqjx6P3P+jyU0OC4JyD2uNMZjzyv+6nLGEWBErxHYb+7HjE
m/KxY0IxCPhI314e5cUj0/rEScaxQPh+k8blpRQerZEA/8QgEJzqTH481sSj
XrMvbTwKt8D3xOq7pEg8KnV1fOjAFgBX7CJ83WPxaMFhQ35yxh9MY1lwegl4
dDDqKsP9Hn9QHhQNZ7yHR5aMn0fj7vjDpv95lahHeBTMuF7rxu4PUTU5L2+1
4VFaI5PHEUE/8PspYWP+Do+kns4/vrblC1fpyphPdFHu5+gXrvYhX9A2feO8
1IdHL8eXf28V+gLL8h/xG8N4RHdQX8T4sC9sCfl/0h/FI9/Oxys9XL7wV3M3
TH4Cj7jCfyXfWKUsVTrXj8lZPEp8Ha8p2+oDba8fJHQu4pHtAhcdFPpAxZiM
ytMVPHKM7+wOi/OBR6yVE9EbeMSTke02dt0H7h1Xy3TawaP//5//fzjFRNM=

      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk8Fd/7AHCVpLTZhbu6RSnJcl2k58m+FkLIvkQkiiJLUpJKskebJeFj
vaQULSPakESWLKVICllbKPnN9/X6/TWv92vOmXOemXOeZ2YYbv6Wnot5eHhO
LOLh+d/R+cwzgY42FjFCqRQCbUOwl+FZr9TMIvJ5nu297mEIVrXqO+JfsIgD
KRt7N5w1BMP54gD9hyyiSyrM/kGTISgdTW6/m8cijoZqaPy0MwJeT5fMy8dZ
hIGzjEdzuDEU6s4p2dFYRHDp8jqnz6aQ+0nZ9M46FiG4wfT8yVVmkHnSz1NQ
hEUonqxMalM1g5QH/Zdf8pPWf664+qwZRKg8/6s+JUNkbXuk0CO/C8xZKc8k
n8oQagJPBRdF7oafSxTse31kCGeFVeeObrAA2Z/uC488ZIhFTVeu14MF2A5n
5GY7yRBFlmvPqNhZQHXT0vH9ljKEXpeiXXCcBZxI7Ts9qS5DZCi4TsfNWMBS
2YslfMtliOxtsEW80RJEjEd5tuUzifH4jJm8JCvQ287ME85mEmoOsg42XCs4
pmBr8vMKkzj5cVBevtkKuoTqU2vimURNkcN1vRXWcK3n6ib9Y0ziXsDHhZ3R
1sDyM7Hap8ck3r2sfhsaaQPKCYX5ZwYYxMeQovOLU2whoSCLv6WPQYCi+WfH
Slv4TqQdkOxiEIby5srv39pCweQp+bImBpFinqW4S8wOpPfsK+u6wyBWc1y9
xq/YAa/Yyir5WAZBNy2qtiqyh46rfs/ebGYQuS98T9z46gDKle6y0rIMQrPv
knzPakdIaLKL3c9gEEGjHzbuVHEE43k94z+i5HieqYXnIh3hkRO1mbVAJypd
dCvXSjhBPuN1e/AbOrFqUmRAzMIZQvIVP1OO0Qm9TS6JS6ZcwP7H3GR0AJ3I
5dbojPO5wnadp/9GfOhEl9DgykkpV+D5YCdR7Uwnzhm0yavpu0Ks2GkTGyM6
wd/rfPn1VVdIP9NeHi9NJ4ql7ovvNHGDw89n/v47QyMWfst35te4A9v9nNir
UBqhVtE6crzNHeb+URSv+tOIybZNXh4j7nCKbeCuZkcjBi6/6Dsl5QFJtzJe
+m+mEZcOsD58CfeAitM70vpbqcSW9IARN11PmILYrU9oVCLIIV4nd2g/yESL
ul4XphLhplVt00u8wOpFTlLIMioxlF4148bwgirzhz8UximEaMDyXVkOXhDu
OlVz9RGFkDq1mXHlrRfwnXYwPOpIIbo/loZlNXjDumeKrnJXpQm/Pxd4i177
gPGKR0lLLkkT3/4LWUGd9IHwXSb1709JE/+xF97eFvKF9x2esqk+ZHvLXzRD
G1/I+XJlbJGGNJGYEe8l9sEXNi9fGtrTJUW8PLHohsuvg4Cm75LixaQI5mH/
THcdf2joHdJUF5Ai2ObNNZ37/WGP38zgwIIkoeku8PfgeX/YH79GTf2rJLG+
zX/Hnzf+ENei1zNQI0kElDxOttoWAF1WFTLqrpJE1/TDaoWnAeDveKFyoGgd
kXx1uvnD7GG4cUirg7NTgthq8wlTMoIgJV/n8oSKBNEQENuYWx4EF/qNbAvk
JAjm8ydzjS+DIMTSplt8rQSxoqsywmkuCPaw/d//fC9OrC51SUl1OAr8/7KG
KsPFCR/xf9N71x+DwIu8vxTviRGl5RPecS+CwbC4UXzjVlFid3vmSKZtGBia
hypKyogS3/beimMfCwOjGTkjAXFRwnCAojyUHAbG22NCx/6JEKkp6kTC6zAw
bcK+8mYRIs0sWE7EMBwsRu/kaBwSIQyfZsS814oA+81ZW0xLhIlP7z3vtW6P
BN/iIB1/eSFiOKUmxOppFNRfu9m2lS5E0N4WHFLtiALpi63uEyJCxHSE73Hm
lyho9lOMPvxPkAiaseujLz8FSltH6wPfCBLRWsZmZWan4He5u35IsCDhHZuu
JPbuFERXWRpF1a0losT7TTfMnobtZ1xvbKhaTcRVWO4XdI4BjeEtFXPX+YlX
W3SqfPXiwDaYHnN+dDHxyex3+BrrRHgjlugQVzb3eLx1KLW/PwV0bYVN1DaM
PVbD4TGvjRmQ8iromPC2hsez7qG6r6Ovg5R47I2I6Y/wjlfUKkA/G77mjXgY
8vwAGycJ5eHOm7D4qIxWiRQPdvyNqrDSyYPfH8JNChX5UCO7vupsewE0U7kZ
I30CGL5fPDZVsghikp8fNV8siN7s7DBtqxKIG3oS67FaEKfbxU3dHUogWf3R
1RBJQXx4u/7TCY8SyPpQWZulJIilP0JN84JKoEY+Z9WkmyC2zcwevZNSAhN1
4bcS6wTxY8K9XS1tJWA3s629NVoIP22SE2o1KwUXgy3DQwlCeMbuouBO61LY
f0Xuz9w1IYw6ILup0KEUgpDGkLkjhIMNjCQf31KIj1vpF/iZ7K/9t+hmbCk8
YX3hFdEXxoEPRbFTtaWw2fqaivUyESxNv1LwYWsZdO8Tb8kQEsGf4ydbRNll
cM4tyfc9RQT74kON9beXwZB/bI6XiggmBW1bn2ZYBpnng9aGuorgpTPSKyZd
ykCIMB29USOCEs/CICGhDH5tmr857C+KafkjvvYjZZC3LQS2hInirWGFlLaJ
MrDiTHcfjhHF1UEf0/V/lgFX76vgn2uiyLz9QeQiDxd8XNojVzWQ7RULojUF
uNCbWrJPiSWGL4pOei6mc+EJj5NweJcYand/vrfZgAtLnPvTbg+KoeavHxvv
GnFB96Gb5MiEGK75wXmiacqFZ8e9GPbLxbHiRpWLpgUXGqcCtnI0xLE/o4W+
ch8X3g6eNpm5Ko5tPdprp/y4IKrD91q+QBx7qo6IagVwwSY71tK9UhxPdKey
oo9w4Z3jRbvWJnEctnthxxfMJfNVmhd3XhxVSxfGuyO58OXFf6cPOkvgVQkd
m7oELsjJbl6W6yuB1z0bFJuTyPjOlJ7vCZbAQZ4Pc29TuDC683aicYIEepVE
7O1I58JE9YNMuVoJtLvYuawgiwtzxa9rBpnrUHUPZfZMGRdWJv6Ydhhah90V
k87MBi78yPm1UD+5Dh/8DciPbyTnUzkrsGV+Ha4/OKj1q4kL3K55mXlhSUw8
/n7Pw9dc2EPns7q+UxIjFGVXUNq5cKVMrLLvmiR2bNrbtfEDF07XShB6BZLo
2JWaY9/PhYNtkk0ltyXxwlmi5OxHLuz4RR2MaJBEtfjS0x0DXPi0Q1aE+lsS
6fVGEgbDXNjYrBbktEcKI37egMAJLgj1q5985iSF52qrH3lNkvFMasYp+Egh
XwUn0HaKC02imPvvpBSGU94cV5jhQoCj4dsbpVJ4uFBrtPgXF+z8jfv5qqVw
iStz6enfXNCOMh099FQK4zou77Ke5YLILXNe6JXCzKm/Ad/nuHBv1Fblw3Jp
PHC5anBqngvZ/+zRQFQaj/wRDyz8x4Xzax1Ny+jSuHaqZ4vTAhccVFw9ItWk
sWDpfxuqecphIexACs1TGh8/y5bQXVIOwxd9s84GSKNjkc18L+mWTL/i8TBp
vOT0ZcUR3nLIqTtc/zhJGuVvLs9MWFoO+gKhM86ENLqmfczKXFYO6yvaCuIb
pfFPeIinOH858NptcXzYIY2Vn9yPXSD9JK//qeSYNJbKC4R7Ly+HbDONUKPf
0jiTzg54Q/rkTLJCyBIKLmSklrFXlMMObYPL7esouIZ3ePVP0pSvWSa86ymo
b+6kYC5QDn8vzS0oKVJwy69V6Xmkq/tKvBP0KShKqBsZriyHjOhllMcWFJzb
YJqQTDpE3vXNmAMFG4/U03tIs4+LaJgEUrBlcgvFeVU5iNIPfT9+goLNrS9i
r5KeefY8p+AcBYtnpLXekm7zY+ztTKHgVVyqsXx1OVSIhAnwZVHw9SrnSA3S
iTVvH6sUUTCfsWKVN+kAN4Ug97vkeGXDnxJJ714eK5dUS0Er+w8890grcD/2
Ek0U/LitfX836VV7NRPHOylYc+e2yCzp0fkUPeoABYfa9q8QWVMOjbnfZ02/
U1Dra6+BPOlCE8PSsFkKRtbyvdpB+txUtlshLxW9L3dm7CLtnfFH7N0aKt4R
0Su1J22A1o3LpKjItjRY4U56w5fSSPYGKnZ2dpV4kV4az6/iuY2K2dd+pnuT
HlRxG07eTkWCL6vRk3RdT821JwZUPDvSoedMOueUqMWkJRW9LmUusyYdtdF/
Kd2JihO3eAQNSLu0vLi/6wAVn1sscVMlDcHMQxFBVMxk3Z6jkaZSw5nFkVSU
o1F7+EjP17d3dJ+n4qJyqyXfyPh7fbdeWJ5GxcJ7BwJfkq4ROgecbCr6nj4i
f4v0lfufpvcXUxFexchHkD7usr0gtYqKVQQRaEHadlmaQ/0TKg783M7LJC1m
bfSU8Y6KmlWh/6rI5/njT85x80EqNl6J8o4g/Tbn75bIcTK+QGspIJ00UZbW
u5SGn/yXO1SR6+Xw5eUmAoI0XLDX/uZH2nyH+4K6NA0/v5ytpZNeHSfmfVmJ
hmlHuLvCyPU4phQg/UyLhuM9UrwypJvevWyZMaThXdn3S56T6/m8bIS6pTMN
3Q7aDywhvaxuYMWqOBrW2jtttCD3S0itbr5COg0HrEUE3pD769vjWzrmuTSU
DihLNCXd/MArPPkBDYfeb73E5iuHtLsjY+vGaJiYbb63g9y/y+6YntecpWGU
7JqDyqQfvLNJLl1Mx16EjXGLyfXXVbW1ZTUd5wpnbyguKgeh9uPewrJ0TCyq
itEj84eJVSGbtYWO3S2NY5Fkfolu6+ZVVabj6IOKRXf/cuHnG81sG6DjrIu3
kugfLnQ3z7/L2EtH/yq1l5lkPst+EWVCj6XjpVZrz6Fx8rxBxbpt8XR8qHv0
a893Ml8+//RlZwodF7Rz1r8aI6//VCfaPYuOPl2eL3NGuOD9ZOnDvHvk9QLW
dEh+4YLig3MKW77SUd/RtWFHHxcOaFb/1RqnY/3iW2oTPVzIqf7WsOsHHQ8+
8ve93k3my/smXgGLGChfV7BppJMLv+6syrq9joF82o9YVq1ceFSWKKhhzEDZ
X0FzDs/Iesm/mDWwm4GnLlTpD9Vzocv1CDvOmoHGHiEzvnVcmBTes++9CwPv
bnMLOUhwgRUicutUMAN/8HZoaVeT+RYvcxpzGeid15W3s4QLe99cc3ZYYCBd
dl/eZbI+emxadWTpUia2nulTKYsn8//piOjSFUwUvJpnWBdH9ld1+o9HjIna
i6SXfowl55dBm87dzER94+AfUyfJ8dxyYsbsmLiqjdF9mKzXE1P5JScqmchX
aGX1+X/1/5eUSnY1E7sUi6cdjblw7e+l6jqCibr75ctbyfcHI76Q5/yvmGg/
6hXP1Sbv1zrDj0mfmXhSfJB/B4eslzgski8mgxOytMfZTC7cvSgX/jpEBt8J
y59X/VoG4XL/GdO1WMjxYCplSZXBq1+G6zfosHB1CevCJ5EyoD4fXpA3YmFK
he4J6uoyqPWUu6NmzUKvZpb+aZ4y4LuZT9vtx0IFHblBns+lkEDJm4m4zsKo
yKCbLcWlkCt080bPPAsVo85qflYrhaa/16bSHq1H0/yNY0u1SkBE/2whdYMs
sv1a5lNViuBulIP7kmI5HK2X0Mh8WgDmSnKbZ8U34coNEwQ45UFJ1NBCXbg8
dvmIMRN/3gSPuktvRxY2Yzc9b6WfSzYIh269zzqggLrvA4ubJW6AtEz1jeqJ
rbjioEJXgV0GXMqiNCiWKaKc/A+7eoNUmDyxt+GQ2zZcebbzyeeSRDjZwWfS
w1LCY+VDI/rH4+CCd/ke824lvBPZ+iliLAbuDbd/dOtTws0trskmnTEw6D3n
f7RfCbsEU5/I1cbAjgM6cVeGyPY/HS4JpsbA1IH2+sEpJfzPoSrqmlYM2PnO
qh4XUMazcyL5KYlnQPbQTomc7co4JWK5flo3GuoC3/RO31DGmhm3OyFdUaDw
TkD0d7YymniNKzo8i4L0Hfpmf3OVMeKj0SWzyig4uLzmIW+RMt60S+y3S4gC
sczcG6JVyvjVaY+RhFEU+DQEu6i9Vsbf/X61sg9PwloGdTB0QRlPxac5v3OK
BMdmn5FFLip49zYT7pDfYxX0p3qtbiqo3VlZJrovDPgCaVk5nip4JrFm4AKE
Qan4WysdXxVk84v43+cPAx5XrUfRx1Twku8RHolroZAzvSZx2UUVnOCp9e1+
dhyGJe6wV1Wr4NXFPFEKm0Mg0H0hSkJEFdc4r3B5p3wUii/sS1svrop+igd6
j0kdhaHbVYVKkqrovWnk+6YlR8GWN6DNlK6Kqzursjpag2D7rX5W1GZV1Mi/
/lgjMAh4v9Q+/6qrivqbJ9ZvuhcIKT7Rq2qOqqJ8zA8ZA8sj8Cqpn/EiRBXt
H+8wvb79CPDVbGe3h6miiOwHe37ZIxAi8MNpPEoVOQ4/ZqT/HgaHYk+uTLwq
XhynZe/IPwzrv+vvictTxa5NQ//2LjoMdw8vz3DsVMVvwtYM/nP+8C7mzGt2
tyqOJmon6Xj6w9+ri/jW9qli00WBqKyd/qD9bPbIk0+qOO937uSjuUPQLPnN
VPa7KgZZyeXEHjoEQ3UNPJO8bBxt6dyt7eAHYmJx3tFKbOxi1Y5V7PYFdXn+
TEdVNn4PE3g3vdUXHDC6nc1hY7pNzPk9a30hxydc+6sWGx32LPt26I0PKDw+
KL3LiI2Br+d2Clv7gL63WYu4CxsL9IKuLLgegKPVqzlFF9m4IKe5tjXRCzoq
sySOJbBRUv6z6+5jXsAuU5rFZDaGlTRWf7H3gt83bao70tnY7pGrfIDlBaEX
b2xfnMtGzkkh6ZJ7++GEi8JOu2o2KpVUlsoOeUIM3y7jZV/YWBjbputi5QFD
PP2bWr+ysfOiUIvEdg8w+HNY4PooG6s+O//+KuMB/BOpTUpTbIyviXrbPu0O
59/17XKaZ6Nmem/hmxR3iC/223NHWA3VRuY8jXrcIM3yooM7qmHjm8fKVcdd
oYfJ+OWjo4b1fzcxEtxcgT5dmXhEXw1PcGhmp01coSi591mUqRqyBjN471Fc
gXgrvy3LVg0zDw3529a5wDebhqV9AWp47iPHxFXYBbT2LSuzyVbDpE3PW0cu
OMIp+atGTrlqOBC542G7uyO8+KMw6JmvhosCz138rukIltds1h0tUcOulAtK
xaMOsL/v1unk+2oYrDrYaWnuAAnOurYtb9RwBUd8oxx9Hwy6Ry0yXsxB1Ymv
J5r6bUGYofqIspSDX1S/Uy8RtqD9fjh0chkHN+6N5j+WZQtZtuYz6as4GG/k
pMp1sQVHM9qXLxIctDqU7tH6aS90sB82ndnKwUgbjabyMRt4uXz2cq0DBw/V
zMv+k7aG38+KrVKdOVgIhv0Ci6xBLtpF8IAbB4/7G46pf7aCmH/Pz6/15qD2
7soLP0usQHs6LcI5kIPhUu7nv6MVPOhVcZ8/x8H7yZa7Hh/cA6VlAQrqVRx0
/lnYINpjAYrXO8VcqzkYclBvXpawgIrzOxZiH3Iw+KTSZ8dbFnDXc2VLVx0H
D3+Y5qgEWMBDqYLDIS0ctM5bWRGzzAKazn6orPrKwe291fbZ283hm/MuTba0
Ok6sSRfeFWkGB83uyDjR1PF67qnJJgsz+K4hvTKGqY6NEw+Gz7HMYEr0W2+7
nDrSeNX5HzaYwmzjmRNHVdUx/nDOPh5JU+DnPKyt3KWO6qWQ8qjOGM6vZxX2
WqhjqFjq3n8ZxrBS+EISr7U6unx5/Ck4wBjWfLd1t9qnjhrja3XFqcYgljvD
O+OljiNWx78shBlBeuK+MSlfdWzY8uQan5URSEY+adc5pI5qsll8epuNgGqf
kJccpI7JtRVTXn2GkGXwK74mWB1vhxNTJncNganqFDwQqo56vqI3918yhFzm
U2eBE+rYqydfV+VtCOvXbjZUjiLH+///+f8H3WfR2A==
      "]]}}, {
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxd0b1OAkEUBeCJhsQYE4wgATTIj/yqoPAAs7GxoYGaigRaem1sqG1s4CFo
aLBUKxOpjA9ATGykMyYWFLBzdudmz002m5OZ+ebOTKY7aPe2lFLXm8/9+3UX
ndwsbh91w9SHfv0rdR5ePr38pZetWWr486zfTS31eOTWmzf+q/310P698Sdv
/kq7q1uziZ6brJzgftuO34dZNgo5KlA7NvdN7dr18PfsOLywzdhvn7wDmh8h
P0r9HJIXIy9OXoK8JHlHNqP/Y/JS5J1QTlM/aXsf2C9DXpb2lwwvR55keKfk
5cnL03sWyJMMr0heiTzJ8MrkSYZXIe+MPMnwzm3G/UuGd0Fe1Z4PXpW8Gnk1
Gr8MeveScR7Jhk9cUT+SDTeVjKoHvaZk9CvZcN91eq8G9Sd5Dc8N7I4=
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxd0l1Ik1EYB/CRDPoCMzVbRW6uqXO6uc0iyTwPSoxIMKSLsiZi2mJFmfaF
is41nGUb2tCaENO0RWpBRERURCblRYFsqVkSmm4WeJUXSkSU7/nvDXzgZRzO
Ob/zP8+ZouxsUcUqiUSS9+9b/o3U8G3VfPhpKTMKFWRNbv+BcFIjxjNscmiw
LjjgYu+FmmeKiR+ycu8NzC8wV9Ri0dHqW4xrS8yvy5kaf9WJ9b9ZfL4pqKru
Zh+EsYQWJ6RD/kAX9kfRYKnaOnv8DvMKJSVn30F3YvddeKvpj2Gg+VtvDzsh
1FpxzP31dFJVkWOxR7xo2ilZFnw4bwONOd/+Gjnsg7eR1oWWYor3e7E+ljy0
8NH8rgN+HI0WVl0oOdaBPPH06H7W7KTlJrxN4n7ubSaWp1HPZHvgyYj3sxXe
Fupb3p7QCm8rmftP7y777EH+bbTmQe/1uYJWeNupXP6Sjae1wEukfQ0p/SFX
G8ZyOuIf2hOwu5FHTnO5z22fDl3DeQrqfJI/GUhww0uirGGD6mtbE87/P+ae
koQ4sVfhKUnbsqvny95meDtW5FNRpXCAE55KXM+9ZLKan72eqI94yaSMyfWN
tdfCS8F72+Gl4n6N8FLRzyvw1NT1k5WMnqqDpxbnuZeG93HC01Bt3EPTdI0D
ngbvYYOXTu2XTcUjbxrQ/3Ti/9caeBkr8mnhX4KnhVcJT0fZUt29qdB5eDp6
ocz4Ph3twHwm3qOee7ZM9P8i7hOZP8N9mR7nWZBHjzxV3HusR7/OIZ9BXC94
BQYxH89rQD4H98IGMS/PZ8T9rchnFPP8BWMdvAs=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{560.8333333333339, Automatic},
  PlotRange->{{0, 20}, {0, 0.4}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50832013084375*^9, 3.508320158875*^9}, {
   3.50832031378125*^9, 3.5083203491875*^9}, {3.508320405234375*^9, 
   3.508320441015625*^9}, 3.508320532015625*^9, 3.508370079421875*^9}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Euclidean Distance\>\"", ",", "\"\<Percentage (%)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Dashed", ",", 
        RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dotted", ",", 
        RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Innerclass\>\"", ",", " ", "\"\<Interclass\>\""}], "}"}]}], 
   ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"LegendSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.45", ",", "0.2"}], "}"}]}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.35", ",", "0.35"}], "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508047048921875*^9, 3.508047068546875*^9}, {
   3.50804710175*^9, 3.508047106890625*^9}, 3.50804716153125*^9, {
   3.50804719403125*^9, 3.5080472025625*^9}, {3.508047464125*^9, 
   3.508047475875*^9}, {3.508048292265625*^9, 3.508048293078125*^9}, {
   3.508058971984375*^9, 3.50805897228125*^9}, {3.508059054640625*^9, 
   3.50805905525*^9}, {3.508059292359375*^9, 3.508059292796875*^9}, {
   3.50805946878125*^9, 3.5080594703125*^9}, {3.508059779859375*^9, 
   3.508059802984375*^9}, {3.508059834671875*^9, 3.508059857890625*^9}, {
   3.5080605298125*^9, 3.5080605613125*^9}, {3.50828335725*^9, 
   3.5082833885*^9}, {3.50828355771875*^9, 3.5082835585*^9}, {
   3.508283952078125*^9, 3.508283952984375*^9}, {3.508284438125*^9, 
   3.5082844386875*^9}, {3.5083162889375*^9, 3.5083162891875*^9}, {
   3.508316319796875*^9, 3.508316319984375*^9}, 3.50831636884375*^9, 
   3.508316494390625*^9, 3.508316559609375*^9, {3.50831891346875*^9, 
   3.508318989765625*^9}, {3.50831922309375*^9, 3.508319228109375*^9}, 
   3.5083193181875*^9, 3.50837007325*^9, 3.508386387953125*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{
      {Hue[0.67, 0.6, 0.6], Thickness[0.002], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJxdz7sOAUEUBuANiYQoiI0QIut+v+1qZbZTr0eQoKSm9gYaWmqVwgMoSahE
qRQ6lY5xdmfiP8lm82fO+c5Msjfq9l2Koujfj/+dmqqbzm2yZ8sFryt7WrvE
7HG2852tx23fZXViLYPXi/FTa7exz9+M5rfM5kznnPrdprNnOODlEZnmvSbN
z9nxwMtvKn8VgP6gyOSHRKZ5FfaFwYuAFwUvBl4cvAR4GvRr4j3kJ2E+BfvS
4GXAk5m8rPDJy4GXB68AnszkFeF+JfDK4FXAk5m8Kng1cV/y6uA1oF9m8mX+
jRtN2CczlQ6ezOTpcB8DPJk/lw66lg==
        "]]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.003], 
       Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQOu9eqrn/YW2s+aCQI37SOXHbG+1NQH5b+072X+
HhRdPMPexBgEPtuHBx0rVuNYCJX/af8mnvfAQq0l9lDjHJJZhP/OXbMMqp7Z
QdPPSvHmy5X26WkgwOZQ9jmaQ2LpKqh+Todl+jYPru9fZX/2DAjwODxTErSb
f20p1DwBh0xH/voFDEuh6gUdlnx/HpV6eCHUfGEHa9tmneBHc6H6RRzuHDlU
c3nNXKh9Yg5tfcu8nykthJon4XDyamVh5JaZUPMkHW715H1P2DAFap60Q1bs
zoM362ZCzZNxsHfS1nxsORlqnpzDHmXdFw/5p0DNU3DYuNLkyZ306VD1ClD3
TYSar+gACd+JUP1KDhLTXWdffNsHtU/ZgXPtkp7nPhOg5qk4AANLMmXmJKh5
Kg7MBSu4nv6AmafqcGKu6ptn2ydAzVNzUAYF19RuqHnqDpas+ssfPG2Bmqfh
8GnH5pa7f9qg5mk4lF7fePSeWhvUPE2H1TkWSbeEO6HmaTlkqKbapDdNgJqn
DVcPMU/H4cfX9WwPAlqh5uk4/DNa0/FoSTPUPF04H2KeHtT8Sqh5+g4LPtnH
Xc2ugZpn4JCisNf+ulY3VL0BNHzqoOYbOMDSJ1i7sSHUfyVQ+wwd9LrNFt+2
rYCaZwSNr2KoeUbQ+GqBmmfkMLXCPerC4Xqoe4yh4VkANQ/BBwB9cVT4
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameLabel->{
       FormBox["\"Euclidean Distance\"", TraditionalForm], 
       FormBox["\"Percentage (%)\"", TraditionalForm]},
     PlotRange->{{0, 20}, {0, 0.3}},
     PlotRangeClipping->True], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], 
      RectangleBox[{0.26976000700871294`, 0.3256377851925769}, \
{0.7697600070087128, 0.5256377851925768}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{
        RectangleBox[{0.26976000700871294`, 0.3256377851925769}, \
{0.7697600070087128, 0.5256377851925768}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.003], 
                 Dashing[{0, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Interclass\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.67, 0.6, 0.6], Thickness[0.002], 
                 Dashing[{Small, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Innerclass\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
               Automatic, {1, 0}]}}, {}},
          AspectRatio->0.4,
          FormatType->TraditionalForm,
          
          PlotRange->{{-0.1, 3.26}, {-0.1, 
           2.42}}], {0.26976000700871294`, 0.3256377851925769}, {
         Left, Bottom}, {0.5, 0.2}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->{409.1666666666666, Automatic},
  PlotRange->All]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831932246875*^9, 3.508319324953125*^9}, 
   3.508370065859375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"first", ",", " ", 
    RowBox[{
    "use", " ", "one", " ", "group", " ", "of", " ", "data", " ", "as", " ", 
     "templ"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pdata", "=", 
     RowBox[{"pm", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"templ", "=", 
     RowBox[{"pm", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tg", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", 
         RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
       RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"i", "=", "1"}], ";", 
       RowBox[{"k", "=", "1"}], ";", 
       RowBox[{"n", "=", "1"}]}], ",", 
      RowBox[{"i", "\[LessEqual]", 
       RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"m", "=", "1"}], ",", 
         RowBox[{"m", "\[LessEqual]", "1"}], ",", 
         RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"tg", "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
    ";"}]}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831649965625*^9, 3.508316500453125*^9}, {
   3.5083172110625*^9, 3.50831722115625*^9}, 3.5083173503125*^9, 
   3.50832180175*^9, {3.50832248834375*^9, 3.508322594796875*^9}, {
   3.508322629921875*^9, 3.50832263359375*^9}, {3.5083227350625*^9, 
   3.508322739703125*^9}, 3.508370054*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "<", "3"}], ",", 
      RowBox[{"i", "=", 
       RowBox[{"i", "+", "0.002"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"far", ",", "frr"}], "}"}], "=", 
        RowBox[{
         RowBox[{"VF", "[", 
          RowBox[{"tg", ",", 
           RowBox[{"classifyDist1", "[", 
            RowBox[{"pdata", ",", "templ", ",", "i"}], "]"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"{", 
           RowBox[{"2", ",", "3"}], "}"}], "]"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Abs", "[", 
           RowBox[{"far", "-", "frr"}], "]"}], "\[LessEqual]", "0.004"}], ",", 
         RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]",
      "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"EER", "[", 
    RowBox[{"templ", ",", "pdata", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "0.002"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831649965625*^9, 3.508316500453125*^9}, {
   3.5083172110625*^9, 3.50831722115625*^9}, 3.5083173503125*^9, 
   3.50832180175*^9, {3.50832248834375*^9, 3.508322594796875*^9}, {
   3.508322629921875*^9, 3.50832263359375*^9}, {3.5083227350625*^9, 
   3.508322739703125*^9}, {3.50832286546875*^9, 3.508322866859375*^9}, {
   3.5083236689375*^9, 3.50832366921875*^9}, 3.50837004565625*^9, {
   3.509837718703125*^9, 3.50983778028125*^9}, {3.509838211515625*^9, 
   3.50983821553125*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.0319999999999974`", ",", 
   RowBox[{"{", 
    RowBox[{"0.12040816326530612`", ",", "0.12`"}], "}"}]}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.50832258484375*^9, 3.508322659015625*^9, 
  3.508322880359375*^9, 3.50832368178125*^9, 3.50837004565625*^9, 
  3.508472824828125*^9, 3.50983779503125*^9, 3.509838230546875*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"VF", "[", 
   RowBox[{"tg", ",", 
    RowBox[{"classifyDist1", "[", 
     RowBox[{"pdata", ",", "templ", ",", "0"}], "]"}]}], "]"}], 
  "*)"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508324435078125*^9, 3.50837004565625*^9, 
  3.508472838109375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"r1", "=", 
   RowBox[{"RocPlot", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "20", ",", "0.2"}], "}"}], ",", "0"}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50831637434375*^9, 3.508316378625*^9}, 
   3.5083165065*^9, {3.5083239249375*^9, 3.508323928765625*^9}, 
   3.508323963546875*^9, {3.5083243665*^9, 3.508324377359375*^9}, {
   3.508324531640625*^9, 3.508324531859375*^9}, 3.50837004565625*^9, {
   3.50847284565625*^9, 3.5084728463125*^9}, 3.50847291128125*^9, {
   3.508539791984375*^9, 3.508539795703125*^9}, 3.5085399050625*^9, 
   3.5085400710625*^9, {3.508540322578125*^9, 3.508540330484375*^9}}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.508539854109375*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3A3InlUZwPHXlVqaaTbT1NKV5kcf05pLzeajs+XU5nQ6J4FFJhhihSFZ
YLwspJBWsISFLMQYLMGQhawEEZZhDMPeLEya2BtDG37ElLIorXyu//2cP53X
q053z+smJdHDb27uuc+5znWuc517m/eJz1x4xZyJiYmpvScmhp///M+lg/97
vD51z/kbpx/bcPq/9p2Vf1z80Ffu+8vUqp/hyVUzvPaopS/+78HxeKL2JdXP
XznDfN9fFn91+PWO+HXni2d4+LPn3v3IS3ui9kXd8/7mpT25YnD6guGPTBc/
Pvfu9avXbe9+fu0L/63X/PHWTYsWPF48/DbrV/+u2fF1pnYU8/xPdN/vgu75
nur+/UyvXrdi5zX7/D71p27f/8Wv+Ezi5f+xmc9nmz0crRU7NfP/h2Yzvs8V
M35/Kt73smVb7j/uz6lf/MXDEU58/iB+u7nPFzO+Iy8bfG/4+Jv+NsN7hM/r
4uvvxfy8icHIjN8e3Y+fO7j+yuEPZD6nG685xT9fdcShTy5+VeelgwNiQF7d
24yvHo7WdafsWcx479X57Bn+wdXbNl+9beQlg58Of/X8vYuZH818vCb18Oku
vz4360PHL7/utcXX7DP8kZEXzzDzvU/xI5uHD7BvMfP/uuKzLh/OyH6dzxzE
crrs9Z3PGDBc+6cmHkYeDJ5aHP/B4vh6xx1QfGQ8rz5+OJwbNfkq86LB0lhw
b0jNeGniUX8uvpCO8LvmwGLiUROPbywmH+pnYgL0X6eGv0DH4145tzjSxVrN
+B9UTHzqTw/Db7OO4ZrWxOubms386u9EwGji++AZZn2f1s23Jr4PKT4oBlAT
3zp++2VvLv5S5ANNPj20+NsxP5r41szPYcXE9+HFjPfh3fOc3I33W4qDazTj
nfvzMf46lte2txazPo4oZrz0byNfaNaLjul6SO8Vz3Nk54Xd+GrWU7tZb5r1
pRmfecWMj47H3azZv99WzHoaeUHl93bxpsmvmnh7e3H8dldrxkfzeVQx600z
/5r9QLM96osiPo8uvjQCWDMemvWovxwL7B3FrLeRTxh8P35D/aOIl2OK2U80
+UbH19ui+Ty2i/d3dfF/bPnx2L4X6RjejZr9X8fjPKbPj4A+LjXrWZN/Nfk3
N+tfM37HF38tJlwznpr8oMkPmnyuY7jnv7OY9akZXz0a15GpL/RhEW/6pPgP
auJr5KO69fXuYsZTM36aeNMxXLdq6ilNPfye4m/GAtDEnyZfzS9m/WnWX27G
S7M+Nfuhph44oZjx1MyvJl9ovr+mXtI8z4nVeOtIV4dqnlcTz5r50MyH5vk1
+UAzP5r92LxFPtffii+gWa+a59fEtyafa/bH9xWz/2jyi6Y+0nwuKCa/aOZP
k391pJf1mvWpmT/N/J1UTHhq4k/z/TXzoZ+LeNTspwur76/5/rl5Hk3+1DyP
Zj408ff+YuJPk480+4Em/jTPr+Pr3q6ZT8161MSnZn5PLmZ6NfGp2d9zs341
46cjnW3S1AOa9XtKNV6aeNDsL5p40Dy/Jh5OLWa/0axPTTzoo6O+0MSDZn1q
5v8DxdT7mnpDfyx+gib/a55Pk3/0qA4emXJUE/+ael1TP2meT7NeP1jM/Gjy
j6a+0r+KL6SJd02856Y+19Tnmvp0UfW8mv1RE6+aeNUnxA9o1nvmI7v1r38S
8396MeOlqQd0hOtizf6k419frtmvNPlBc97Q9A808aNZf4Ni4ld35XUx+7tm
vDXxranfNOcVzfhr4l+TPzTjr3kezfrX1J+a/HdGMfGjOe9qnk+TvzX5IjfP
r1l/mvWnGQ/NeU6T/zXntdysZ81+oRk/zX6hGa8zq/HSjJdmP9Hkh9zkX83+
oxlPzX6gqXc061uTvzX7h2Y8NeOlGS9N/GnOU5r404ynJp8uLmb9acZXE3+a
8ctNvtOMr2Z9auJTM376k/EAmnyjyc+a8cnN/q8ZL816rcfnrGLiURN/mvyq
6TdpxkMzHpp+qmY/0qzP3MSXJr4046WJr9yMl+bzQ6mJL815WxNfmvyuWb+a
+NKsT009qNmfNPGUm/HVxJdmfNvNeUoz3przlWa8NeOdm3ypWf+aejA39UI9
X0uKqR8086OpJzT5QRPvmnpME/+a87hmPWjyrSbfavJDu9nvNPOt2e80+78m
P+emX6+Zb818a/oZmvnU5CfNfGrmU9Pv+3Ax+Uqz/jT1lGZ+c7M+NfOtqU80
+6cm32vWo2Y9auYnN+tPM3+a9ac5z2jO75rx1oy3Zj/V9N/azX5ydmrmRzP+
mvOcZn1p8qNmPbWb+dLkU039qJkPzf7TbtaXZj1p1otmvnJ/IRaQZv4060WT
/5am5vyuzyHgi5kfzf6v+ema8dbkN81452b8NflQU29q5kezPnJzftPU85rz
nKa+0uxXmnymqa8086H5PKeY+kGzP2nWS27mS5PvNP0/TX8mN/cdmv1Mk/80
861ZX5p8qDmf5ma+NfOtvxv5MDfnW/1EzHdu8qVmPWrmu93cj2nWpyYeNOvv
3GL6S5r6RDO/mv1Kkz8161OTTzXzm5v51cyvZn41/TbNfOamXtHxr9dp9j/N
/Grq/9zsj5r8q8mvualH28385yY/aOJBk5/PS83rIZp+kiZeNPGSm/jR1Lua
84kmfjTxoulHavbr3MSLpn+pqZdyEz+a/UATP5r9QLM/5yZ+NPGjqX8195ea
/KCJB/181GOa+ktTX+Wm/v1IMfOr2b8186uZX838auYzN/Op2e8151fNfq+Z
z9zMr2b+NOs9N+/fac4vmvnTrH/9w5i/3PTLdSzHJ9vN/qCZ3/4mXyxLTT2e
m3jS1COa/KLpD2nySX9TX2riVT8Y8dpu4llzHtfsZ5r4zE19qslX7eY82N/U
Q5p8l5t6V7MeNPlNsz4060Nznte8v6XZDzXxnpv9T1MPn9/bxK8mfjX1syY/
6q/HA2riUdNO1YRTf1NP5yZec3N/pYnn3NRrmnhuN/Go6T/lpj7XxKPm/KU5
f2niTRNfmn6GZv/Mzefy1FGfzslNPtXEn47n309T3+eO9Xqwpp7TxKtmf9e8
PqWJZx31zIk6fvvTNPt/f3MfouP8dK6Oemi5jvlcqYn3dkc99dHcrI/cET8f
15xvcke4XaGpbzTrKXfkty/mjo/JKt5W6+h33qBZf1X83aipn3Ts79/IHfny
pioe11XxeHMVj7e0m/Oaju1rg6aey009PvIhMxzlwZ066oV7NPuXjvJla+4I
lwdy0w9qN/mr3fHLH9acH3TE86OafKjpR2nyo477t6d1xOuzmj8Oo6M/80Ju
8uMFxeTH3PxxCU3+y00+7O84rh2uIx7n5Y74O0ZT347P5Gsd9diJuaM+W5ib
fK6pl3WUG2fkjnSyRNMv0hHPyzXn/dzk69ycF9tNvm43+VtH/F+luX/W5GtN
vZ87Pib7m/NAbvK7jq93Y27yuea8rMnvOurhm6v1sb6K/41V/N42PnM+r+J9
kyaf56Ze1PHL76nie4uOeuXe3LxPq+n/VvE/pekPVPH9cLvJ51X8Tlfxu11H
+b0jN/k9N/le02/Q1Me52Q9y03/IHcvxhWo9TFxYzP6Qm/o6N/tJbvobueM8
faDmvJibelzTD9HsH+1mf9DsD5r7m9zU97npr+gIv4Wa+wLNfqLZL3TUU0s0
+0Nu9ofc7A+5qe81+V5zvtXU5+2mP6nJ95p6XXMeHp/jY1JT/1fr4YYq/m+s
4net5rytuY+u4nWD5n2e3HGevKOKpzs19bYmv7ab+jw39Xm7o9/3QG7yd27y
c27q7yoep3Ucj7dr6vEqXndo8nUVn09r8rWmXs9N/m43/bcq/uas6HzADJOf
Nf0OTX7V9DvaTb2uya+5yae56Zdo+iP9TX5tN/k3N/W8Jv+2m/ysyc+56c9o
+uOafo0mX2v6N5p8rcnXmv5Lu8nvmnpe049pN/uDJv9r6n8d6+Pa3OwHmvcX
cpPPc1Pva/J7tb7W5Kb+72/6PZp+z/jM+SI3/aHcnEfazfmiWr935KaftOvM
flrlg8067h/u0uy3mvua3Oy3Ovq1W9vNeUhzHqrywy+q/PBQlQ+2Vet7Ojfn
n2o9P1at5x25Oe/0N/ttu9l/Ne93aM5Lufm8KDX7r458sbfmvKPZf3X0Aw7U
9NfaTT9Nc/7JTT9Ns1/nZr/Ozflo9sx5q7/p1+Vmv589cz+Zm3ohN/c5mn5g
u6kncnPfmZvzoqbe0NQb7aYeyU19ouk3auoPTf2hqSfaTb9xfI7h+Wxu6hkd
+eja3NQzmvNpu+Njst30O/ub83Bu6ilNv7TKl2uq/Lg2N/3TKj+u0/RTNfVN
lR9vqfLfBk09kpv+aG7qB039oKOdcVe7eb9t9ky/VtOvrfLLfbk571f5Yyo3
9UmVDx7OHfng0f6mnqnyx/bc1C/tpl8we6a+qfLJs/1NvVPljxeq/DBxcXEs
nzm56T9o+sGa+kfzPpCmvtH0GzT1jKZe0dQnuakvNPVCu+nvavoJuakHNP3d
3Oz/mv5BbuoDTT9hfOa+MTf9CU290N/UA5p6IDf1gaYe6G/qAx3l9VX9TT9D
Uw+0m/6Gph4Yn6kXNP0PzX7dbvojudnf200/pN3UA1U+WTc+U09o+vftpn+v
4/h+W276Je2mPslNf2N8pr7R1De5qWf6m/5KlQ+3VPnw3nZzn1Hlt62a/kpu
7i+qfDalqW9yU9+8fKbfo7kPyU1/p93UQ7mpZ3Jzv1Llw53tpr5pN/ctubl/
qfLjnJXF1Dua/k9u6iFNfyg39ZLmPkZTL+XmfnzXmfqtv6nv2k29p6nfcnN/
pKnfNPVbbu6HNPf1I0/816YezM37ZOMz9aWmvmw39aOmXmw3/SlNfdlu7sfG
Z/pdOu6jV+amftXUq+3mvq3d9MPGZ+rhdnOfp6mf+5v3AXNTT/c39XW76df1
N++r6Pj/SU29rXmfvN3U3+2mHtfcV+am35abeltzv6jpt2nuDzX9Nk3929/U
w5r6Nzf1bJV/76ry7d1VvrwnN/d7uak/x2fq19y8H99u6tfc1K/t5r4xN/Vp
lQ+3Vfnu0SpfTVf5aHt/U7/mpj6t8sPOdtNfy019qXl/f3zm45Kxmb/fR/P3
Meemns1NfTs+c5/a3/Qj/3fN+aHd1Oua+2VNfZ6ber3dvC/28pnzQm7OD7m5
b959zXlGc55pN/fZu485H+XmvNPfnHc09+3t5ryz+5rz18tn+v+5OX+1m+O5
5jzWbs5juTl/9TfnrdycrzTno93XnM9eueb9jd3XnEd3nTnPtpv3VzTn3/GZ
+6vcvN+reT9F8z6K5nw8PvM+S27ut8Zn7r/azfm93ZzvZ8/0C3Jzf6Z5n1jz
5xfbTX9A875Ou7nP0rz/q+kXaN6nyc39leZ9mmp/3lrtn/f3N+f93Jz32815
v938eZ520w/QvM/T3/QPqv12u+bv/8rNfVa76R+0m/ed202/QXN/VTxBv2H3
MX/+dNeZ95ty88+q1LzvpLn/62/6Ja8c02/ZdebPA7eb/oamf9Fu+huzZ95n
yx3737zc9FPGZ/ots2fev+tv+i+afktu7nNz/wO12rGo
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{462.50000000000057`, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508324194140625*^9, 3.508324397671875*^9, 
  3.508324495640625*^9, 3.50832459234375*^9, 3.50837004565625*^9, 
  3.508472904890625*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.508316297296875*^9, 3.508316298328125*^9}, 
   3.50831650759375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"try", " ", "second", " ", 
    RowBox[{"method", " ", ":", 
     RowBox[{"\:98df\:6307", "-", "\:65e0\:540d\:6307"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pm2", "=", 
     RowBox[{"pd", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Dimensions", "[", "%", "]"}]}]}]], "Input",
 CellChangeTimes->{3.5083694475*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{3.508369450515625*^9, 3.5084729163125*^9, 
  3.508540088046875*^9, 3.508540340421875*^9, 3.50871400696875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ddiff", ",", "dsame"}], "}"}], "=", 
   RowBox[{"eucDist", "[", "pm2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ns", ",", "nd"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Length", "[", "dsame", "]"}], ",", 
     RowBox[{"Length", "[", "ddiff", "]"}]}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mdsame", "=", 
  RowBox[{"Mean", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ddsame", "=", 
   RowBox[{"StandardDeviation", "[", "dsame", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mddiff", "=", 
  RowBox[{"Mean", "[", "ddiff", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"dddiff", "=", 
  RowBox[{"StandardDeviation", "[", "ddiff", "]"}]}]}], "Input",
 CellChangeTimes->{{3.508369438328125*^9, 3.508369443671875*^9}, 
   3.508369512*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "4900"}], "}"}]], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.50847291775*^9}],

Cell[BoxData["0.13213751799186627`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}],

Cell[BoxData["11.065031354960313`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}],

Cell[BoxData["1.4360249228030406`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}],

Cell[BoxData["2.086091430343611`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}],

Cell[BoxData["0.22319314760101963`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}],

Cell[BoxData["32.13404489785738`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}],

Cell[BoxData["7.837765843717045`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}],

Cell[BoxData["5.60803532157383`"], "Output",
 CellChangeTimes->{3.508369453828125*^9, 3.50836951653125*^9, 
  3.508472917765625*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dx", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dds", "=", 
   RowBox[{
    RowBox[{"BinCounts", "[", 
     RowBox[{"dsame", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "ns"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ddd", "=", 
    RowBox[{
     RowBox[{"BinCounts", "[", 
      RowBox[{"ddiff", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "nd"}]}], 
   ";"}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", "dx"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Length", "[", "ddd", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdds", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "dds"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pddd", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "ddd"}], "}"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.508369660359375*^9, 3.50836967209375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p50", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.3"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.508369637171875*^9, {3.50836971721875*^9, 3.5083697188125*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdkLFOAkEURScSEmNIMIoEkCAIiCCIyAfMhoaGBj6BRFt6bGz8AxusrWmg
wJLSRAvCFxASG+lsLCxw5w7zsvcmm83ZN3Pmzub6g97dnlKq9f/4711mmafv
7mysmyZLven6XxaW1/pl5Oddf5hs7Hxu5z92/qZh+9UPsXF7NZza9X+WX/Wn
YeWBn+3+kLfrYTSjsKcC2Xfr700O3Bz+iGP4oo5x3iH5jmj9sWP4Y9TnhHxx
8iXoPknypch3Sv3T5MtQvzPiLPURxnk58p3T+cLw5V1/+PLkK5CvSL4i3f+C
+gnDVyLfJfmE4SuTTxi+CvmuyCcMX9Ux/r8wfDXyXZNPGL46+eo0vwn6HoVx
H2GjTzaoj7DRTYSR26CvI4y+wkb3JYx+TeonvAVDU+j+
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxd021Ik1EUB/ChzkoCK0tdVm6ubc7l5raIFuY9LSToDZWo6EOGTteL5ALD
RDOnlm8Zo1g1N3NW6tIgJMoPIkVZJFiYmsscMVhbCI7AiIb0ofnc4xU8bIw/
9+53zu5zJyoozSuK4PF4+vB78XOpulWZXverg0TL1QTpK9ld8C2uArOP6Piq
Hq+/noxyNUdE07MCg+02rv8ml939775L7xKqhciJi6aX+TesuP8fMQiHiDvN
Tj5ymQdbJ/eFX+34/UiYd6zRP65+SGxc8eHvNH+4e9yJ3mpYSI+6mXfkASnm
KgbKBlfVdbk60V8L2ddkff7WTvRiQTdbb+gxOrHfOnDOk9NfLjjQ2wDlsdGH
csUduD8O8n2vhyanHOhvhGDlQMSM6z7Oswka3y+MnUxuQy8ebFd/HT+TZEUv
kWXqCcA7cr6iMOoOepvhQ7tkLjBgQS8JZPEBe3HQgvNvYZl628Az/KZq4mkr
eslwVlKUaay1YBZC24v9nvGEWziPEJQtux7N7G3EfiLo3fnDY0xY8lLgZ9Zg
zddjzdg/BejzbUJPDPKje8KPtAk9MdD70IzedhCvz+qYsragJ2H7qSdh/akn
ZT71pGDiBm5AT8b2Uy8ViF4h9+nq0Etd4clZpp4cQn+eRXtzrqOXxjL1FKw/
9RQ4fyV6O8Cc2zvi+1SL57+cqZcOkSZXjD9kRk8J/U8WD7QBPSUk3su2fw5W
o6fC+2dGT7ViPQPvXxX1apYz/T0Z6JdTX6Bm63QeNfqXqPdcDfT/WIbzaVjm
vMMavG8mnFcD1isHTo29LaVeQIPncw7n07J1Op8W+5eQ/x90uTE=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{526.6666666666677, Automatic},
  PlotRange->{{0, 20}, {0, 0.3}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.508369624875*^9, 3.508369676265625*^9}, 
   3.5083697208125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Ppdf1", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"mdsame", ",", "ddsame"}], "]"}], ",", "x"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"mdsame", "-", 
         RowBox[{"3", "ddsame"}]}], ",", 
        RowBox[{"mdsame", "+", 
         RowBox[{"3", "ddsame"}]}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Ppdf2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"1", "*", 
        RowBox[{"PDF", "[", 
         RowBox[{
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"mddiff", ",", "dddiff"}], "]"}], ",", "x"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"mddiff", "-", 
          RowBox[{"3", "dddiff"}]}], ",", 
         RowBox[{"mddiff", "+", 
          RowBox[{"3", "dddiff"}]}]}], "}"}]}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Ppdf1", ",", " ", 
   RowBox[{"(*", 
    RowBox[{"Ppdf2", ","}], "*)"}], "p50", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.50836970646875*^9, 3.50836972959375*^9}, 
   3.508369803703125*^9, {3.5083861014375*^9, 3.508386108421875*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hc4lt//AHAyMx97PyiRVSKR6H2MhlHho0LJFqLMSPYKIasiIyplJrJC
3NbzPFYp4xv6hIZZMh+b3/354/fXfb2uc65zvc/1fp/3fZ9b0u6WqeMeGhqa
YFoamv+eDVe+F2/q82A/6+R4LK7bQpZ6iyX7aR5MwfQZkTbUFoL4nu0V1+HB
sH9HlSjptnDyo+11HQ0ejJps++dtpy0064zvi5XD51/hc2JQsgOS7FgGPysP
1qLx9VUpjT18Wv333pFubmzj5oYxXb0DVPS/P6ZL4cZKNI/N9vzPAVLKs3+Z
tXFjDH6BI/XLDmB2w0rXv4Eb41BfOL/nsCMMfvu601jCjQUbUQK18h3ha/uI
r1ECNzbM23IgId0JJlKH7K+f58Zuq3uWp2c6A12YlbuUATd2rxvEp5ucQeLm
+O3xU9xYxdDXfOefzmBxdjr2ihY3RrAWIK8oukD31lrZBQVurDcc+3mu1QUq
HAW31Fi4MbX8qzb7Vl0hWO1yGjOJC9v0ck3tjHSHTKmR7PZmLmxJZSfQrswd
armsX4W/58LW6L9wKw27w8KsU91WJRf2/WO4uLvSTXDIvT02/5wL47D90OEz
ehMM9j5SGArjwmJleJ6t7PcAvpH+tkItLmzIOKOS9pknCDsqCZcd58L4CCyX
1d95gsTf+7cqVbmw+KXuu7G9niBHpyvcpMiFsU9fKL276wkn5ctv9Yvh63v4
WT675gXOdxOEd7cJmHeh7RWOfd7QIHLaw6yRgE282CnhbPSB5vy8dos6AobR
0mSQvvgA6fC2sHU1ASNl6slmLvnAJ93KdpfXBOwj+XxOtqwvTNzYJxKSQ8Bo
TNBblse+QGjYaS8MJmD2UHgny+82OFytEdk9ScAUgqszzY39QXA3wk3wBAEz
/bsta3XTH7rzjN8fUSNgJRPbLmHx/qA6OX3N4TAB4w0iOcl2+AOjl+izDnEC
Fr10Qn5D9w4U3As7mEZDwEL0A5urIAC+OD52NY3kxE6uWticNw4EVKzEFhXI
if1lWZUM9AqEwvmO0hofTuxiR/JEd1ogBNzdmhd15MRyZ9J+/W8oEESTbf0m
T3FiPEVN1Y8cg8CmQT4ykIkT0z517sXHiGCY5sayX8ZxYEG1ajpr7qHQ6Z+3
fDicA1OnGfbZDQ+Fom/hhu/ucGBm1gNGYumh4FZ0ar3LmQNTIsioZreEwpx2
l9nCaQ7ss/rj72WCYbDsMciqSceBVV9Vy1bqCIPdD7/vfLrLjkl8j98R14yA
saMfei292bH2qS49cbMIwJ6Uyfx0Zce+B4QGqrlFQLiT1wDVgh0TmN5keZsV
AfQ7q0qi6uyYeMbfsi87EcCiSDfltMyG/Tbzi5gjRwLffaFLW25sWM3iUSOK
ezSQ5Ir0+B3ZsHMT74vV7kWDf6eGipIVG3Y9qvVTY240fN17leBwjg3LzVMq
4+2PhmcxOZ1dimzYXNBF27ET90Apej9kzrFiBck8qgyEGDAIUzyo4cGKHVWO
t17ojIVQP+0NP28W7JBW2FpdYgIUqQnnTLmyYGLP5S10yhOgf3VR28KOBXOK
2To205cAB/1fxGqYsGC1wXm1mUKJ8NGfSWj7EAvWp6e9fu9lIhADetTCZ/Zi
49SgB49ID6A+0MI33nYvdr/ojSQLIRmoYZ7zuReYsbCWNXPbnFQI9la4f/wM
M9ZHF34v820qMDpOHvh8khnTVbhVOElJBf6zVlfoDjFjGndbp6uWUkGVQ5/k
yMaMMcQFGsobpIHPE4ksuQ4mrLH24HboRhosVnw8U6nDhEmXL9pxuzyCuR+K
T8mqjNjeWZUf8SEZcIYz/dO8IiNWzNrX2vY4A3I19tALSzNiLjyyG+xvMsA0
edDZjZ8RYyL3BPePZUDVyRBlrlUGrIXkHq2s+wQCM3rbLWsZsHp1/ptqrJnA
csH79x8NBuwt1Q/FFWSBdF3tcV5EjwGzxkQlWy44vzaU5pDYg22/3ZHUPfsC
pvlLdxSlaLDnrle1bn8rgJFSVfHHDltNw0IEEeaVUlh3kfyloLDWFKnMX3yY
vQIecRSFc2guN/11px9yVKyCpG9RMQ/n/jbdTnjjcrejFmh2pv7QJ0w2OfhZ
Pf+ffwMMfWVlEPQfbaI2WHlmLzQB91X2IEmmnqaCYE0huk/NMP27NN1rKw20
JQoYRj1bwfjulbBK389wR5PmaDJLO3xWLgxhe/cZLvc30zsR2uGfGWqQw9Zn
sNBv4VPjb4dLFikBvBF9cO535FSPZDtYqXV4+yT1Q9z5jPEe9XZwXTrmdLR4
EFwijUt4nNoh6ga3YeXYMBwe07fKfN8OjPtt9NmkRoBXyDprvqUdYoZLzzhc
H4HOgw+falPaIV5fX493bgRO2tz6Mfi5HVJkQrV8Nr+CIeXNWs9kO+T++HP4
KP8ojF7+Kz5LIMG/pQ4sw/njcEFIT4hiTQLLZx+KdNvHIeYu15SmAwkGH6kb
lv4cB0bF7uelziToDWGLD93/HaZ7FwbDPUnQZlLJLpP3HW4Zfv62GU6C4hU6
Lp+sHxCu1c0tnU+CO1rPBThSf8G+4WivsxMkoB5hr/Wr+AV7C3YKVWdI4CXt
Zz7+6Re0bW/fIc6RwI3TMKOSMAEtX18OfV8hgc34ovCVxAlYGagxPcZAhjNR
OsSC2EmobpxhY9xPBr6ecSmd0Gk4rh6gon6FDBUgP2/8bBp+T9qxfr1GhvMV
PvXWbdPQPKV7LcCODNGPmUyDmGcgQWLH5aULGai2iiG1STOweDyjp96PDF+o
/kOH8mbBmjfZZyiFDD4uLS+0Wmch2mCxfv8jMhC+snoY/ZqFg/+YmTlnkEG/
OYfRVfY31DPJ3Rx7Soa6+20q+eW/4VmRG218CRmyJAiJIi1/oILim/ihjQzq
qRYWcj//wAAvamsgk6Gf4bnUccY5OJMldyC/kwzss6r1lwzm4ApHoLVDLxmC
q65MJX+eA9njrf5ZI2SwNnilw/zjL2S+q7BdmCcDl8bTuxu0C8ClmsktIUCB
xpBf5WNcC2C0V6xZTogCru3yUyTJBTg0nbdfSYQCLca1ZqnaC/CK6/SunDgF
vK5/UlQIW4B6tqrZMWkK9KXRjVnRLMK3Q88DjFQpEDqsz69HWARer+c9tGoU
UJBIMpKTWIT47EisXJ0CkcWi76iwCDxhVmG0mhQ42qKa8iBkESw0rYxtdCjw
8O91veadRehZZlATPk8BHdXXAa84liDsrQjTnQsUmAtYfpNAXAJe1kinz8YU
OM0YJmZ5cgmcGQo++vxDAaroE+pi0BKcyoxT9jenwDO7MYWhBNxsLg7FFhQ4
XyBt35S9BB5X3hCHLCnwUuXtx/vvl8Am2kBWyooClw26C6S2l2BATznM35YC
9Encoyzsy5Ar2joWYkeBNwPmfAuiy+BX39gSZk8BZttfYe81l0EnXYvV15EC
tX47lpcCl6H8i2iWkAsFHN7rJWvGL4PEntKtZdwEuvvkfVnL8FHp8XCnKwWc
EwWO/q1fhlF6dTYnNwoI5Suxx2wuw60H5WqWtyjAElNxkci6AlsSRQRGDwps
uB7NqRRegXrm7xkluIeV1A+PH18B9TXr+mlPCnTy1Pn56a9Ab+2gaagXBeqo
JzB2ixVQ1plL5/KmwJMGMNHwX4GLBvcOS/lQIO5pc0bvvRVY1LsYko87IFz3
u9PjFRiksQqU9KWA5dkz3qnVK1Ay9yVw720KGMh31MuSVqD6RlWIL24NDkN6
bGAFRlDWoa+4hfvPP/y9vAKkzyEPMvzw+Gt6/w2np4JqJY32PO6NDFNpIV4q
pKmlZWv7U2AmsP9m2X4qOBxgyE/APWx9qeaUChVyWiQv9+Pu1PmyO6JDhfne
+rd8d/D9HLA862VKhT+JBXUmuIuYvyYx21FBqxa7EYP7yazVUI4nFUhRY6R3
uOM+jEqqhlFhoHSy6xfugHJb164kKpx0eBfAFoDXe9qPCttcKoRZavYp4rb0
c9xcLaPCaJPlgD5uA8tJ3cQmKtzW3hNmg1tDyyVe6iMVLrFIDXrilpOY7a/7
RoX7rZX9QbiF6dzFTOaooJxWEhiJm2ViznFymwp3JJk+ROHeoHi8DmJfheLE
VkoY7pniRSqP2CrIB/1088c9nOgDRQqrcJvNo84Fd6cn9R7SXAXh4VvlF3HX
mfn3DhquQhHtgokm7iK1DUH3K6vwVpQ+Swz3E+FAW7obq/BK5/2D9f/2v71d
mBGwCp3MRxV7/9v/WMji4bhV4AuP8MnD7dpKe4KUsQqi0OnojtvyZUTE1cJV
mD4nR3sUt0EsQ/di7SoMH+84vYLnQ8PtHm8sBY+PtfdYOW5h5fv5VZOrkLDY
yS+Em4WPfc5wdRV0Y/cxtf+X79XEY98Z16CYqfDZDdzD71PIHNJrIMen9LUA
r5fOXF5CvuoaRDG+CQDcdRGPzE+cWoMHz63ae/H6e6L/ZPq6wxp8mXey+fFf
vSqIKu94r0HNiFW5w3/1ypkTkBaxBl8nasvG8Pq2HMhjbX62Bu8Ia1UUvP5F
bAsVhcfXgMI2sWju8V9+MlnpFteA83cJMQ8/X8L58dOze9YhRMqX5cdN3NO3
8t9LrUOB9GUpM3cKCHoeE7N1Xgcr03ivWfz8CvIc3NS/sw52p66X0f7nKqEh
5bh1yGe/Us7lTAGB9a00+pJ1EMvzZhJ3ogB/WCtbwd91uCvZzPUX7yf8+6tm
kmg2ICk3I77PBnf7S8odrg14WNH3udyaAnx74yINVTbAbt9s2xW8H/EmG2/N
3d6ALV5pC0e8n3Hn/TururMBzJMnxIzP4db92EHk3ATTGDL2yRD3L+wVk8Qm
TCZ9gnMGFOCSfWE/pL0JC7usA0fO4P2n3HUkMGoTBvO6g8oRBdibVztb2bZg
d07r131lCrDZTxeUiG3BPoeLg8VKuBlGoh8e2oJ0oTc17Ydw6zfqXDfegkR2
WpNJOTzfnyLrWNK2YPpzF9P3fXg/HOcqMhHZhhiFku/VXBRw4sw3F5Lfhp+x
xZDNSYE2LXWmcY1tKPl65kYwOwVCnlxz8LDcBp3BdZUje/H+/U8x8UHGNlhU
3XprTkOBnyS91G6BHZD9uFj95g8Zmkr8As/w7sJgzrXRB/j7UXSERZ5Tahf0
Yoh7+5rJELA3Z2hQZRdWZfqOcjWR4ZhT2zGnf3ZBtPNqRvA7MpSIcy1EpuxC
Inh0ir0mwzn9AWVbZhpE/qfG6xb+vj7RcPNVTjQN8hWpK3G3J8OiskeH/AMa
FHB6p7PbmgwFhZ6ztY9p0Ol+dFn6Khn4H/sc7iugQbcWptsoZmSY9wyoYeqi
QQkcJN2uU2R4KRNN9uCkRV35R8w6pMnAnZo9qZNOiz7IXChu/EmCKZdumcnC
PehhToCdtgkJUNmsqVHFHlRdE3rthhEJMpZZgsvr9qCzZgGtSWdIYBCi33+3
aw/S9RYd7NEiQWkaKZTwZw+aORgewiWHfx81YUPHleiQ17sqajMtCbZ5q+7H
V9Oh+28qM8dK2wG/rv090kqPaB+Wpf9ab4OtvNyuS7WMyOThclB0ZCt8dcy8
+OF/zOjgsTeuGe3NEFRFXhLvY0H/cnQHE9kwyCy9PuTdxoacTVMeDrxogNf3
dt2ExzhQgdvvrba5Wmi+7RDXc4OAfotObKU8roJ84VOqNYFc6PWlzfGewxXg
GnlyJuEuN+ruMHcsjHkN7i0LLY6+POiaCl/1H6tCuLGQu+gUyYsGjrPT+7m/
AP0JZ4WLYXxov5bo5e9euTC2UhyXHcWHjrJda1yxywV/hr9Tv2L5kMumlS7v
P7nwUso3/3YKH6q9OJ7lpZIL9PZhxPTnfKjnsGSy8/RTwEYzCCPtfEheuzgq
ZTEHjg11Ltuw8KOFDX+Oc3zZsK9b4b1bKj/S2V8xR5eZASytO+J5j/kRyUDn
LFNYBiy96w0fyORH58ftE4nXM6Dtlc/Zky/4EdvO99YYlQxwjGjo46ziRyPO
H1kMe9KhQMNopmKQH+manngVSp8OhwpvCKwLCaDLfV0pd8MegUZ0kWdUrgBS
9n7qRsXvYxpjL2I8Xwggbq5zMgdycWs8fWpVIIDYJ1lD7ONxz6X2qL4RQG8J
VdMcjqlw/FKQ7ESTALKdJU+IC6SCurTx+OlRAfRp69J5qeAUOEZaMWYmCiKv
TKOyyMvJoMyorXQ/UxBtuWke4XNLBOqFx7+7ngqi/bL3lAX1E6Eu408B2wtB
NPMGsk5IJ4K24hPJxBJBpPiE6eqPsQQwNlviTn4viAIaX3tWXk6AW8/yVx6N
CqLmzkJuI8N4KDnJUv9svxA6JPa8sEM/DjxibPx+yAgh+hU4UykXB0c/V6tI
KQghqaL68QbWOKh3tC/JPyqEJBweNMl8iIXO+IbsglNCyGbx6o6tWSxMDd8M
fX1dCKk3hUVfdoqBA359p+qKhVCGmfyHxqfRQCNlWl1RJoReGmXW8EXj9/Pe
Xunit0Jo3FSgINItGlLkPjBl1QuhfW9MrIuO4/O/UTqCuoQQY/buTZ6BKBjW
azynPSuEFCzLLc8ToiCRu/AiRU4YyR08yL7xOAJcmmRI2CFhxOVTd08lLAL0
3F4ee6csjGQ3dPgjXCNgs/25QJGGMBKJCjnioBUBzndyhu4b4M41Llf4GQ66
Y6lWF1yF0easjFOHajislQY7DhYKI/cH6l9IU6EgpRM/XFeKr7f7PwOWgVAw
Hsy48LRcGGEcvpK2zaFQuFN53PmdMCr/qN5y9kkoWF6YZd+gCCMCZ+2ZHaNQ
aJi/XC02JYwa5vI0f98IgTCVI0yO0iJIlFHf+ZZ8ELwmnwzUlxNBx8SjNDOY
g2D4itGC4iERVOfUZDvxKxCUI6+PUFVFkF/SS+WZ3ED42Z9dFnNKBD26/nQt
TTAQTt9mMS9xEEGXFkVirDnuAsu7HwVLz0RQND9mzsFzBzY0z7UqvBJBvSZJ
KwML/jCDVf/rWCyCYvLtNFp7/aGLEsv95a0I2rTbVeN44A/xXw4HNrSJoAOO
dK527P7Avnb3QtSECJr/lsM9SfADghovlV9OFD3gmloMUfYFmvoggvEhUbT8
3L3hPZ8vzJ+clItVFkV2QgflxdZ94NPpOutNDVHUJcUbiDAfSLlk0zFqKIpq
jEzi+Ix9gOd2SVaBuyjScjwe8c3XG/ir9HQ1ykXRU0ezcsEhTyBmDXLJV4ki
+b6BpNVmT5COcB4TeSeKeoOG/eeLPEHVJD5oGxNFItFu9EpBnmD2p68G6xVF
ZdUPAn7s84TkA/YKZ+ZFUbr2oYdM3h7A9iiMz+ywGLJYC3qhb3gTeIN4fuqp
iKF7r01dlPbfBFGH/ApVNTHk8OpH8qlNd5BX7rggAGJIzzndeqPYHQw+EOKG
z4uhb9sdCrGc7hDDmLtjc1MMVQtz/uAbvQF0fo2T7qViqBjOrrTmuID5lvne
/nIxRGfl4i/h7wKvw5bkNKrFEAPfiNobE3w8/uBNxiYx1E5pue/MgI/npSzn
9IqhA0+sPI/dcgbzbifa3iUx5EwYYBUwug6vJTlFlDWIyEZc4JuXrCPQvSrU
TD9JRA3ntB/0MDuCuYLetR0dImr09+4xm3IAOrU7eZ2GRKRWuH5g6pUDmBv9
kLG3IqKp75OtorL4uF/N0bRQIvp8gI6YomKPx2tyaSOSiKKSchVy+OzxeH/7
2cQSUV77obK+VTs8Xsl6hRQicnx850Jdgx0e733t9udEJDGBmj3O2gGdjLS9
fAERyRi/V26Vx+eXYJHJJUTkZrE3U4sTH69ZIVtVEZG+YHRa4aAtmGsmTbe+
I6Iu5cuUJ3W28LpZjlWukYhUc9TV3+bYAt2ZdoWkFiJS6B+tWgzH53dbn6eS
iOj//+f/H73tUAM=
      "]]}}, {
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdkLFOAkEURScSEmNIMIoEkCAIiCCIyAfMhoaGBj6BRFt6bGz8AxusrWmg
wJLSRAvCFxASG+lsLCxw5w7zsvcmm83ZN3Pmzub6g97dnlKq9f/4711mmafv
7mysmyZLven6XxaW1/pl5Oddf5hs7Hxu5z92/qZh+9UPsXF7NZza9X+WX/Wn
YeWBn+3+kLfrYTSjsKcC2Xfr700O3Bz+iGP4oo5x3iH5jmj9sWP4Y9TnhHxx
8iXoPknypch3Sv3T5MtQvzPiLPURxnk58p3T+cLw5V1/+PLkK5CvSL4i3f+C
+gnDVyLfJfmE4SuTTxi+CvmuyCcMX9Ux/r8wfDXyXZNPGL46+eo0vwn6HoVx
H2GjTzaoj7DRTYSR26CvI4y+wkb3JYx+TeonvAVDU+j+
      "]]}, 
    {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxd021Ik1EUB/ChzkoCK0tdVm6ubc7l5raIFuY9LSToDZWo6EOGTteL5ALD
RDOnlm8Zo1g1N3NW6tIgJMoPIkVZJFiYmsscMVhbCI7AiIb0ofnc4xU8bIw/
9+53zu5zJyoozSuK4PF4+vB78XOpulWZXverg0TL1QTpK9ld8C2uArOP6Piq
Hq+/noxyNUdE07MCg+02rv8ml939775L7xKqhciJi6aX+TesuP8fMQiHiDvN
Tj5ymQdbJ/eFX+34/UiYd6zRP65+SGxc8eHvNH+4e9yJ3mpYSI+6mXfkASnm
KgbKBlfVdbk60V8L2ddkff7WTvRiQTdbb+gxOrHfOnDOk9NfLjjQ2wDlsdGH
csUduD8O8n2vhyanHOhvhGDlQMSM6z7Oswka3y+MnUxuQy8ebFd/HT+TZEUv
kWXqCcA7cr6iMOoOepvhQ7tkLjBgQS8JZPEBe3HQgvNvYZl628Az/KZq4mkr
eslwVlKUaay1YBZC24v9nvGEWziPEJQtux7N7G3EfiLo3fnDY0xY8lLgZ9Zg
zddjzdg/BejzbUJPDPKje8KPtAk9MdD70IzedhCvz+qYsragJ2H7qSdh/akn
ZT71pGDiBm5AT8b2Uy8ViF4h9+nq0Etd4clZpp4cQn+eRXtzrqOXxjL1FKw/
9RQ4fyV6O8Cc2zvi+1SL57+cqZcOkSZXjD9kRk8J/U8WD7QBPSUk3su2fw5W
o6fC+2dGT7ViPQPvXxX1apYz/T0Z6JdTX6Bm63QeNfqXqPdcDfT/WIbzaVjm
vMMavG8mnFcD1isHTo29LaVeQIPncw7n07J1Op8W+5eQ/x90uTE=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  ImageSize->{535.8333333333339, Automatic},
  PlotRange->{{0, 20}, {0, 0.4}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.50836972490625*^9, 3.50836973084375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Euclidean Distance\>\"", ",", "\"\<Percentage (%)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Dashed", ",", 
        RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dotted", ",", 
        RowBox[{"Thickness", "[", "0.003", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Innerclass\>\"", ",", " ", "\"\<Interclass\>\""}], "}"}]}], 
   ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"LegendSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.45", ",", "0.2"}], "}"}]}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.35", ",", "0.35"}], "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386144*^9, 3.50838616571875*^9}, {
   3.508386207546875*^9, 3.5083862143125*^9}, 3.508386550640625*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{
      {Hue[0.67, 0.6, 0.6], Thickness[0.002], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJxdkLFOAkEURScSEmNIMIoEkCAIiCCIyAfMhoaGBj6BRFt6bGz8AxusrWmg
wJLSRAvCFxASG+lsLCxw5w7zsvcmm83ZN3Pmzub6g97dnlKq9f/4711mmafv
7mysmyZLven6XxaW1/pl5Oddf5hs7Hxu5z92/qZh+9UPsXF7NZza9X+WX/Wn
YeWBn+3+kLfrYTSjsKcC2Xfr700O3Bz+iGP4oo5x3iH5jmj9sWP4Y9TnhHxx
8iXoPknypch3Sv3T5MtQvzPiLPURxnk58p3T+cLw5V1/+PLkK5CvSL4i3f+C
+gnDVyLfJfmE4SuTTxi+CvmuyCcMX9Ux/r8wfDXyXZNPGL46+eo0vwn6HoVx
H2GjTzaoj7DRTYSR26CvI4y+wkb3JYx+TeonvAVDU+j+
        "]]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.003], 
       Dashing[{0, Small}], LineBox[CompressedData["
1:eJxd021Ik1EUB/ChzkoCK0tdVm6ubc7l5raIFuY9LSToDZWo6EOGTteL5ALD
RDOnlm8Zo1g1N3NW6tIgJMoPIkVZJFiYmsscMVhbCI7AiIb0ofnc4xU8bIw/
9+53zu5zJyoozSuK4PF4+vB78XOpulWZXverg0TL1QTpK9ld8C2uArOP6Piq
Hq+/noxyNUdE07MCg+02rv8ml939775L7xKqhciJi6aX+TesuP8fMQiHiDvN
Tj5ymQdbJ/eFX+34/UiYd6zRP65+SGxc8eHvNH+4e9yJ3mpYSI+6mXfkASnm
KgbKBlfVdbk60V8L2ddkff7WTvRiQTdbb+gxOrHfOnDOk9NfLjjQ2wDlsdGH
csUduD8O8n2vhyanHOhvhGDlQMSM6z7Oswka3y+MnUxuQy8ebFd/HT+TZEUv
kWXqCcA7cr6iMOoOepvhQ7tkLjBgQS8JZPEBe3HQgvNvYZl628Az/KZq4mkr
eslwVlKUaay1YBZC24v9nvGEWziPEJQtux7N7G3EfiLo3fnDY0xY8lLgZ9Zg
zddjzdg/BejzbUJPDPKje8KPtAk9MdD70IzedhCvz+qYsragJ2H7qSdh/akn
ZT71pGDiBm5AT8b2Uy8ViF4h9+nq0Etd4clZpp4cQn+eRXtzrqOXxjL1FKw/
9RQ4fyV6O8Cc2zvi+1SL57+cqZcOkSZXjD9kRk8J/U8WD7QBPSUk3su2fw5W
o6fC+2dGT7ViPQPvXxX1apYz/T0Z6JdTX6Bm63QeNfqXqPdcDfT/WIbzaVjm
vMMavG8mnFcD1isHTo29LaVeQIPncw7n07J1Op8W+5eQ/x90uTE=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameLabel->{
       FormBox["\"Euclidean Distance\"", TraditionalForm], 
       FormBox["\"Percentage (%)\"", TraditionalForm]},
     PlotRange->{{0, 20}, {0, 0.3}},
     PlotRangeClipping->True], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.35, 0.35}, {0.8, 0.55}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.35, 0.35}, {0.8, 0.55}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.003], 
                 Dashing[{0, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Interclass\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.67, 0.6, 0.6], Thickness[0.002], 
                 Dashing[{Small, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Innerclass\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
               Automatic, {1, 0}]}}, {}},
          AspectRatio->0.4444444444444445,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.26}, {-0.1, 2.42}}], {0.35, 0.35}, {
         Left, Bottom}, {0.45, 0.2}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50838614765625*^9, 3.50838616640625*^9}, {
   3.50838620865625*^9, 3.508386215375*^9}, 3.508386550640625*^9}],

Cell[BoxData[""], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50838612171875*^9, 3.508386128109375*^9}, 
   3.508386370203125*^9, 3.508386550640625*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"first", ",", " ", 
    RowBox[{
    "use", " ", "one", " ", "group", " ", "of", " ", "data", " ", "as", " ", 
     "templ"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"pdata", "=", 
     RowBox[{"pm2", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"templ", "=", 
     RowBox[{"pm2", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tg", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0", ",", 
         RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
       RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"i", "=", "1"}], ";", 
       RowBox[{"k", "=", "1"}], ";", 
       RowBox[{"n", "=", "1"}]}], ",", 
      RowBox[{"i", "\[LessEqual]", 
       RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"m", "=", "1"}], ",", 
         RowBox[{"m", "\[LessEqual]", "1"}], ",", 
         RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"tg", "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
    ";"}]}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508369884875*^9, 3.50836988559375*^9}, 
   3.508386542921875*^9}],

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "0.002"}], "}"}]}], "]"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.5083699165625*^9, 3.508369925*^9}, 
   3.508369963734375*^9, {3.508371549953125*^9, 3.508371550796875*^9}, {
   3.508371602828125*^9, 3.508371607984375*^9}, 3.508386539578125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.043999999999996`", ",", "0.09714285714285714`", ",", "0.1`"}], 
  "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508369970296875*^9, 3.508369997734375*^9}, 
   3.50837156125*^9, 3.508371619953125*^9, 3.508386539578125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"r2", "=", 
   RowBox[{"RocPlot", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "20", ",", "0.1"}], "}"}], ",", "0"}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{
  3.508386539578125*^9, {3.508472936578125*^9, 3.508472938328125*^9}, {
   3.5085400983125*^9, 3.508540100265625*^9}, 3.50854034909375*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.50854010284375*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzd3Q2o3WUdwPHbKiXNsjnzLZsrTWflW3Op2XbmdL7VnE6nFli4BEOssCQT
jIshi5EJNljIQixhCYtYyEoahhXGMmy9oKMr69aaiNOa0kw0q3t+33OeLz63
Hz0ezp3LS3D5xO7dOc/ze34vz/+sZl352YuumjYyMrJ575GR7veXf13eeU17
9LI93qe98fi149vvnv9y39vsR1Y8+MLmy36CRyqPXvqKze//eeqvdv/4zF/2
vGyS+X2/7vmSl3vkkt7v+32zx7fP2Ljm5keL+fv+0Pv9F3e6f3rGxseK+fv+
+N89Mtnz53T/m/Hi2488d+I/f+79/NJJfrz7clZv6/35yqMX9V7/X1Lfuuuu
9fPmPN7zhf/DSyY5Xu7mJ9o8UnvxJLOeTxY/tuHasQ3X7pj/7/j6yCs2+/HU
K/br4u+f7JtXL9153T5/LWb//tZ7ved1Duwu/9KdPZ8zyeyv/vS6t04s6TOp
+fFni/ePDfh7MfuZm/16rpj4/UfxvlcsfuCh2c8Xs/4v9Hx2Z+KHuy+4mPV9
MfX3ui9//b+Kef8jnb6PveHUiVeYm/Xpe9EkE//TUv/mspmH7lj4+mLOg35x
c/cPaNbzDT2fNcmsZ99nTvK3Y4H26nlh51ezu29o72LWu+8zOufFC35T8XX7
dDdAs/77FH+LgCtmvfct3hm/QBOvb+55QeczY90f2K84ftsVbylmv/rudCaC
YeINvLX4qYXLb7p6nY6XO3v/1EdMrP7ymzTnW7Offc/rnBvr8bbU8etv0JyP
3J+PF6Tj+Fw3vfi7sSG5OW/TO5zv03vxdEBxLOe1+plYf018HdD7fad1Ijxv
n9HzKZ14O6cemHhu5/LuX7dcx+rfqr8SG/j21LEc6/UPuy93TBOfBxWTvzTx
2vecznPd9PGIjh9fe3Ax+6vZr0OKv9x9+bs08X1oMedXsx+a/ej7pA4/flgx
50HHy1/d9wmdOK4z3lHM+daHdcP1as1+5eZ86TNjgw4vZr/0F7vLNX54Lz7e
18vH7yzmPOp4O2Oa/ZpZzHnU/D1HFPP+dBzHqzXvR7N/k83vPab3/mYVx8td
rNnv3JzHdkd4jWvi5V3FxEvmIzvfjBeoOf+afK2JN/2DqHeafPjuYvZDkx90
LPc6Hdv9iGZ/jixmf3Qc/5s09UZTjvXFsR9HFZMPNeurWV/N+r2nmHqjWS/N
edSsx9HVemjOZ27qlyZ/avqTY5rNeuqjIt41+avvI3rxri+IDZ9dzHpq1i83
63lsMec7N/la029p8t17i1k/zfrpLC/0TT7UxKMmH+Y+OdZLE5+aeHx/caT/
uzT5UEe63KU578cVE3+a86mJR009O774T1EQNPGl+X5C9fdr8rVm/zTxpnm9
mnyr2W9N/OXm/Wn6oxOLiVfN+283/XFu6r9mvzTrdVIx8aQ5b5r6qcmvH0jN
+9X0X/pT8YI0/Zgm/2q+z6lev2a/NedZM8/kpv5o4kMTDzqWY41mHspNP6ep
B5r1Ojk1/aWmXmvOiyb/aeYJTXxozpcmXvReEQBzi4mX3Jy3vg/urafmvGnW
V5MvdKSf7Zp5RJNvP1jM+mnOm6Yf0uRnTT+o6Q80+VuzXprx75Ri8rcmXjXx
qul/NOdRsz6afu/U1MyvmvXQsf0LNflGE2+5Oc+a9dGcZ83304qJL818qr8W
v0DT72jys6Yea/KxPivW50PFxEtu3q6mXupPxB/QV8Z6aM6fpr/TnD9N/Jxe
THxo8pdmPTTxoX8c719zXj5cvV9Nf6gfjXjQ5PPczKOa+pSb86W/EOujOV+a
/nFeMedJk480+UjTr2vyuT4h/gvNfKeJJ816zS/mPGnyjea8aOZDTX+q+d5J
zfnR7Kfm9eVmvfQ3It40+UCznpr406ynph5q+glN/6R5/7k5L5r7Ck19qNdr
QTH5WNNPaNYvN/GniT9NftWsn6beaNZPk1818aqpn7lZf83652Y/NPlTk680
66+pN2cU/yLyi2b9NOuXm/XU5F/NvJqbfk6TnzTrqVk/zfyZm/5KU58166mp
h5r+SxPfmvyiyX+a+8OFxcSvpn5q1k9zvjX9pWa9NPGoyV+afK6JP03906yP
pv/X5ANN/6xZL01/qMkHmnyg+X5mtX6a/JibfKmJP02+16yv5vxr1ldTPzXr
q6mXmvXUrJ8m3nJznjXxpvl+VjHznub8a9ZTc/415zs38arptzT9j2Z9NfGr
WV/NvKQ5/5r+X3P+Nedfsx+aeNfsj6Y/0+yXZn808a3ZL018a74vKma/NPlZ
sz+aeNfEuybeNf2pZr809U+zH5r9yE2+0eSXdrM/mnlBU98084om/2jWOzf9
+9nFnA/N+dD0C5r4zk3/pekfNOureb6niXfN/K1ZP02856af0MS/pv7lZv01
8a+5r9TEvyZf5WY/zqn2Q7Mfmn4kN+dDk790hNc8zXnR7Gdu+hdNPtPsr6af
0ZwfzX5r8plmvzX7q+lvNOdHs9+a/dXkN00+05GOdmi+n1tM/tL0P5r91OQ3
zX5pzpsmf2nqt+a85ab+aPar7/17+6HJZ5r90Dzf0pwvzbyYO9LVBn1cbHBu
9kvz+QbN/mnyY276M81+a86v5vt5xT+N/c7N/mrOr6b/1fHjx2vukzT9hub8
auJBU88095ua/k5zXnOTn3MTH5r4yM3zG835zf1kxM/gJh9o4kmT3zXxpMn3
uYmn3PT7mu/nN5v7wNyx3TNz0z9p4k8TX5r40tSHdpOvNP1WbuqLpr7kJp71
d6J+aO43NZ/fyE28afoxTfxo+mVNvGjiY3ATP5p8lJv40vR7ufufM+yb+qW5
f9LEjyZ+NPVL029o4is38aOJj3bzPDk3+U7Tj+hY/hW56T81825u8pumPuYm
H+VmHtPkq9zEU+4vRXzpf0Y85eZ+PjfPC+t4+mgx8aOJH02/o8kHuT8WG5j7
kNj/4Zl+SRM/mvsQTT+bm3jS9LftJr40n7fMzf1Vbp5naD6PkZt40j+Khk7z
eQxN/5ybeUgTT5p4WlxMP63pt3KTnzT5Sf828o8mv7Sb+NA8H9XEiyZeNPc5
uemvNPlGEx+a+UjTf2viQxMPmnyjqW+aflpTr3LTX2v2X3OfrKlXmu8XNJt4
0dQzTXxo+nPN8+jcxJP+eiyIJp9p7qc0z9/aTT+l6fc1856OH1+u6ZdyE7+5
mQdyE9+afKeZJ9tN/GrqZbuJb828qZkvc1N/Nc+bcjOPtpvzpDkvmvOgyY+5
+b4kNfcROtZ7Px35Zbrmea3mefzg5uPNmvOm4+3Myk3/oGO/j9b0EzrC50Qd
b+d0zXnU9J868t8izfMoHfVwiaY/0czfOu5nP95uzvPg5r5HR3hd1W7yg455
4xpNftDc72ryQ27um3Tcn9yiyR9V/K7MHf3AbZr+Skf+X6Wpn1V8rqni884q
Hu+q4vHuKh7XaubHKh7X6wi/ezX3k1W8bswd8Xu/pn5X8fyzKp4fzB3Ha5Nm
ntARXg9r8lfuOA+/q87Dlirex6r43arJh1U8b8sd8frE8Bzz4tO5I96freL7
+Tr/XlhMP5I74n1vzfOAdtMP9z0yyXEepmv6IR3n4SBNvs5NftbkZ83ziNz0
3zrif267yd866vUCTb+k6Zd0xOuS3OTz3OR3Tf7W3FfpiOdPavJz7niedFVu
8nNu8rXm/qPd5HMd90vX5450cqOmH9TMO5r8ruOvW5mbeaiK79uq+L69iu9V
VXyv1tH/35Gb/N9u6kEV7/fkjvnh+5r+VJPvc0c5uV+T76v436RjXn04N/lb
M99X8T3W7oj/rVX8j1fxvL2K3ydyc99ZxevTuemfc/PPnzX9tCaft5v7Cs23
i5pNPdDUA03/njvOx36a/J6b+VfTj2v669w8r8pN/52b/K8jfOa2m/zfbvp7
TX8/uKM/Ol9zH6SpJ+2mvmjqS27qi6Z+aOqFpj7kjnC4pngkXs7nNPdZOs7L
9Zp+vt0R77do+nlNvtfke819WLupB5p8P7h5nqmpB5rnSe1mXtDMB5r5QMc4
dV9u5gPNfYam/9f0+5r6kJv+Xsfn77e0m3rRbuqHjuO8TXO/qKkXOpbv6Sp+
d2nyeW6+lqaO+J6Wm3yem3yuuZ/R9POa+5p2c5+j6fdzc3+j6f9zMw9o5gFN
/Wg39zmafy6qqSeaeqJ5vpib+yBNvWg384amvmjqRW7qR27qSW7un3S8/WWa
epGbeUVzf6SZVzT1JTf3R+1mPsnN/ZKmHmnqj+Z+ScfzgxuHZz7vUp3vm3Nz
n1Wd9xW5qX+5qX+aeUdT33JzvzW4ud+qzuc91flcl5t5Jzf3Y+2O5yv3tZv5
qTrP91fn88HqPD6Um3mpOl9bqvM1Vp2vrdX5Gs/N/ZZmHqrOyw7N5z+q8/B8
Fc8v5I74fqmubxc3m/soTb1qN/PJ4KZ+5aaeaeYdTf3S1C9NfcrN/Va7eX6Y
O55fnaipb5r7ME09mzpT/zT1T0c6W6SpZ7mZf3JTz3JTzzT1bHAzT+VmnsrN
PKWpZ4Ob+zfNfZumPuXm/i13fI3m5r5OU68081l1Hldp5qXczEua572Dm/u3
3NSvwc39naa+Ved1fXU+N1TnaePg5r6vOn8PaO7/2s39oGa+y02908x/ubk/
rM7rlur8jVXnbaum/uXmPk8zz2nqn+Z+LnfE+7RLipnPNPNZu6lvuZnPclPf
clPfNPd5uZnXNPUvN/UvN/VPU98GN/Od5j4xN/Nfu6mfmvtEzXw4PFM/2019
zU29bTfzqGb+1Dwf09RnTT3W1EPNfJib+XBwU19zU2/bzTypmSc186RmntTU
Tx1fo5r5T3O/WeWTFe2mvlbnf1Vunm8Nz9TrKn+s0dTfdsfn5+7OzX2oZr4c
nqnXuZkvp87c5+amX8jN/W5u5tnBTT9R5YdN7aZfyE3/MLjpL3LTb2j6DU2/
UeWzrZr7ZM18nZv7ZM3nQXLztSw198Wa/iM3/cbg5nnh1Jl+RnP/rOlfNP3K
4Ka/0fQzmvle089o7ptzM59r+gtN/R/c9AOaeq6p57mp75p63m7uk3PzfFLH
eVs2uJm/h2furzX9RLvpF9pNP6HpJ3Izz2v6DU2/oZnn2x1fo+2m36jyw8rh
mc9z5+Y+u93cd2v6n3bT3+hID3cMbvqhKt/cmZv7CM39QrvpZ6bO9ENVfluv
6UeqfLWx3Xw+dXjmvl7H57M3aT6vquknctNPaPqHKt+MDc88D9Dc/1f5aVtu
nnfvPvP8QdMPDW76pypf7qzy5bOa5xu5ue/JzfOOqTPPT3LzdWlq+j/N/55A
u+kP283zmlfP9ItTZz7vnJv7NM3zIU0/qeknNf2kpp/U3I8NbvpPzf2Yph/V
3G9p/v1Zu+k/h2fur4bnyP8LNM+bNPdZ7ebz4O3mPiw3/XFunl9p+tfc9LOa
+zXNfdjwTH+7+8zzruGZz69r+u/c9OO5ed42uOnPh+f4GtU8n8vN/eOeY+aN
qh6sbDf3oZr5IDfzQm7mg6kz88HwzDyRm/miqidrc9Pvt5vP6wzPPC+t6te9
uZk/cvN5n6oebdTcb/7/mOe1ufn3x+3mvnZw8/mndjNfTZ2Z19rN/XBu5r12
c39c1dPtg5v5anAzX+0+8+9tBjfzXm7mP83z/XYz/+255vMHueN68qXcfF7B
/59V/v1Qu5kHXztm/svN5y92n5kv283zkHbz/EMzr7abeXbPdTw/ntVu5m/N
PK35vMnUmfn81TP3Abl5XpWbz8PsOeb52NSZ+4o91/zvL+bm+WDu/wDUfbWz

    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508385725*^9, 3.508386539578125*^9, 3.50847293315625*^9, 
  3.508472994828125*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"try", " ", "third", " ", 
    RowBox[{"method", " ", ":", 
     StyleBox[
      RowBox[{"\:98df\:6307", "-", "\:5c0f\:6307"}],
      FontColor->RGBColor[0.5, 0, 0.5]]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.508386581890625*^9, 3.508386626546875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pm3", "=", 
   RowBox[{"pd", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "All", ",", "3"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386642703125*^9, 3.508386644546875*^9}, 
   3.5083877341875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "46"}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.508386669921875*^9, 3.5083877341875*^9, 
  3.508473254265625*^9, 3.508540370171875*^9, 3.5087140221875*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ddiff", ",", "dsame"}], "}"}], "=", 
   RowBox[{"eucDist", "[", "pm3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ns", ",", "nd"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Length", "[", "dsame", "]"}], ",", 
     RowBox[{"Length", "[", "ddiff", "]"}]}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mdsame", "=", 
  RowBox[{"Mean", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ddsame", "=", 
  RowBox[{"StandardDeviation", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mddiff", "=", 
  RowBox[{"Mean", "[", "ddiff", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"dddiff", "=", 
  RowBox[{"StandardDeviation", "[", "ddiff", "]"}]}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.50838666496875*^9, 3.5083866841875*^9}, 
   3.5083877341875*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "4900"}], "}"}]], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.50847325546875*^9}],

Cell[BoxData["0.15336692073555788`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.50847325546875*^9}],

Cell[BoxData["10.820495898722196`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.508473255484375*^9}],

Cell[BoxData["1.7216295909538974`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.508473255484375*^9}],

Cell[BoxData["2.4975457060069157`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.508473255484375*^9}],

Cell[BoxData["0.1993450729494327`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.508473255484375*^9}],

Cell[BoxData["32.0281799005555`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.508473255484375*^9}],

Cell[BoxData["7.80080018734096`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.508473255484375*^9}],

Cell[BoxData["5.656871951069606`"], "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.508386671015625*^9, 3.508386685234375*^9}, 
   3.5083877341875*^9, 3.508473255484375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dx", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dds", "=", 
   RowBox[{
    RowBox[{"BinCounts", "[", 
     RowBox[{"dsame", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "ns"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ddd", "=", 
    RowBox[{
     RowBox[{"BinCounts", "[", 
      RowBox[{"ddiff", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "nd"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", "dx"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Length", "[", "ddd", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdds", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "dds"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pddd", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "ddd"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"p50", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.508387126109375*^9, 3.508387143140625*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdjj0PAUEQhi8kEomCECFEfDvf3On3OjW1SoJST63WaPgRKoVKoaanVIpS
FDrW7O3E+yabzZOZeWYyw2l/5DEMw/o++bspD5bHl3kSm7XMVfT3qcWjd1F8
F/PItnub7UTHlnmKX3l/UPW3qq+E0jmul/q9midjGZ9mmvc77vz5JBNw/n1B
6A/pOvnDMB+BfVHNlJjuJ18c7k1oJl9S95MvBb407E+DPwP3ZGFfDnx52M9M
vgLcUwRfCXwm+JjJV4b7KuCrgq8GPmby1cHXAF8TfC3oZyY/82/cbsM+ZooF
PmbyMdM9NviYP53vxIk=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQPL9G0eXN+fZT9rJgjctN/+zCDt/u5WKP+l/a2e
vO8JG6bYmxiDwGf7Lx/YuQJ+zofK/7QXdXa/rFq80B5qnMOPr+vZHgQshapn
dlgqPGnuPMdl9ulpIMDmIKD0dXLM3OVQ/ZwO/4zWdDxastj+7BkQ4HGYf22q
9Jy3y6HmCTic+3Z6g1LXYqh6QYcUhb3217VmQ80XdpC94ghEc6H6RRza+pZ5
P1NaCLVPzKHWh+lscPlcqHkSDqYM7asC+mDul3SIf3xg75Vrc6DmSTuszrFI
uiU8E2qejMO19mO/LkTMh5on51Awa6vznUvToeYpOFiy6i9/8HQKVL2Cw6EE
zawnyZOg5is62Dtpaz62nAzVr+SwR1n3xUN+WHgqO4TnFWyLb5sKNU8FLg8x
TwXNPFUHzrVLep77TICap+bgWq+++mnvRKh56lD39kPN04Drh5in4bDgk33c
1eweqHmaDpD474Kap+WgLGgHjIJuqHnaDqXXNx69p9YGNU8HGj6dUPN0oPY3
Qs3TdagWWef+sKoFap4eXB5inr4DOPjE66DmGcD5EPUIPsR8A2j81tqDtRsb
OpyYq/rm2fYGqH2GUP/UQM0zgvJzoOYZQeOnBGqeEVR/AtQ9xlB+AdQ8Y7h+
AFlTV6k=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{585.8333333333331, Automatic},
  PlotRange->{{0, 20}, {0, 0.4}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.5083871290625*^9, 3.508387144296875*^9}, 
   3.50847325803125*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Euclidean Distance\>\"", ",", "\"\<Percentage (%)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Dashed", ",", 
        RowBox[{"Thickness", "[", "0.001", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dotted", ",", 
        RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Innerclass\>\"", ",", " ", "\"\<Interclass\>\""}], "}"}]}], 
   ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"LegendSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.45", ",", "0.2"}], "}"}]}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.3", ",", "0.35"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50838717609375*^9, 3.50838720671875*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{
      {Hue[0.67, 0.6, 0.6], Thickness[0.001], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJxdjj0PAUEQhi8kEomCECFEfDvf3On3OjW1SoJST63WaPgRKoVKoaanVIpS
FDrW7O3E+yabzZOZeWYyw2l/5DEMw/o++bspD5bHl3kSm7XMVfT3qcWjd1F8
F/PItnub7UTHlnmKX3l/UPW3qq+E0jmul/q9midjGZ9mmvc77vz5JBNw/n1B
6A/pOvnDMB+BfVHNlJjuJ18c7k1oJl9S95MvBb407E+DPwP3ZGFfDnx52M9M
vgLcUwRfCXwm+JjJV4b7KuCrgq8GPmby1cHXAF8TfC3oZyY/82/cbsM+ZooF
PmbyMdM9NviYP53vxIk=
        "]]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.002], 
       Dashing[{0, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQPL9G0eXN+fZT9rJgjctN/+zCDt/u5WKP+l/a2e
vO8JG6bYmxiDwGf7Lx/YuQJ+zofK/7QXdXa/rFq80B5qnMOPr+vZHgQshapn
dlgqPGnuPMdl9ulpIMDmIKD0dXLM3OVQ/ZwO/4zWdDxastj+7BkQ4HGYf22q
9Jy3y6HmCTic+3Z6g1LXYqh6QYcUhb3217VmQ80XdpC94ghEc6H6RRza+pZ5
P1NaCLVPzKHWh+lscPlcqHkSDqYM7asC+mDul3SIf3xg75Vrc6DmSTuszrFI
uiU8E2qejMO19mO/LkTMh5on51Awa6vznUvToeYpOFiy6i9/8HQKVL2Cw6EE
zawnyZOg5is62Dtpaz62nAzVr+SwR1n3xUN+WHgqO4TnFWyLb5sKNU8FLg8x
TwXNPFUHzrVLep77TICap+bgWq+++mnvRKh56lD39kPN04Drh5in4bDgk33c
1eweqHmaDpD474Kap+WgLGgHjIJuqHnaDqXXNx69p9YGNU8HGj6dUPN0oPY3
Qs3TdagWWef+sKoFap4eXB5inr4DOPjE66DmGcD5EPUIPsR8A2j81tqDtRsb
OpyYq/rm2fYGqH2GUP/UQM0zgvJzoOYZQeOnBGqeEVR/AtQ9xlB+AdQ8Y7h+
AFlTV6k=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameLabel->{
       FormBox["\"Euclidean Distance\"", TraditionalForm], 
       FormBox["\"Percentage (%)\"", TraditionalForm]},
     PlotRange->{{0, 20}, {0, 0.4}},
     PlotRangeClipping->True], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.3, 0.35}, {0.75, 0.55}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.3, 0.35}, {0.75, 0.55}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.002], 
                 Dashing[{0, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Interclass\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.67, 0.6, 0.6], Thickness[0.001], 
                 Dashing[{Small, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Innerclass\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
               Automatic, {1, 0}]}}, {}},
          AspectRatio->0.4444444444444445,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.26}, {-0.1, 2.42}}], {0.3, 0.35}, {
         Left, Bottom}, {0.45, 0.2}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->{446.66666666666697`, Automatic},
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.508387182296875*^9, 3.5083872079375*^9}}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"pm3", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"pm3", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.508387310671875*^9, 3.508387313375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "0.002"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.7499999999999183`", ",", "0.17959183673469387`", ",", "0.18`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.50838738059375*^9, 3.508387435234375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"r3", "=", 
   RowBox[{"RocPlot", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "20", ",", "0.1"}], "}"}], ",", "0"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.50847327484375*^9, 3.508473275640625*^9}, {
  3.508540387546875*^9, 3.50854041675*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.50854039415625*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt2w+on2UVwPHrSi3NtDXT1NLVzD+Z05rLmW333vlfm3+mUwssNMEQKyzJ
BONiiCHJYAULMWQxMGEhC1kNlrGMwhZmFlNQbLVWo2lMKYmp0X7n+97ni892
8Onl3uukRBwf9+/+nuc855znvO+defUXLrl22tDQ0GP7Dg0Nfnz1P1cO/097
7Ir/2qftPfu+TVtWLtith/r6wd177PLhjXf8YsdjV/y0zUP1zy/p/ryfp/7G
4Jcf+avu99e+7NUeu7T783/T/XzlscXDy2adu/Pfx4v5+35fvGnLjHX33PZE
8eBnZ6x7uvvzdjV//h9277GLhxfMGfyfTcX8/X9q9l8GX87yzd2ff3H39f65
mK/3r92vv2g4/rrHtu7eQ7ua9ftb8dNrbnhqzQ3bOi/qPu+zC/YKX/Cavm35
4u037vf37vefN3zw4MtfvL3R53brNe5zKp/9Gj5rF39u1YF3/XPF8z195i5m
f15Izcdp90E7//TV8/9RzP6O+4zha269bvAVFMcvn/Ni8Y8G2/VUf+9/1aL1
G477V+eFXTzsSL3zLx8scDHx8lJxfPkzXu482sVHbuLl38XH3zxv5x8xNDzu
wc9etWiv1OyPZrnGPdLtz7Rmfz8OlGa/NOfxTcXs35uL2T8dH2fT3qnZz32K
2Z/cLw5++cZ9i9m/txRzvsc9PBw/ffNbiwert36DZn/3Kw4etn8x+/m2zvOH
D9+2cGdI5mY/314cvEr/YLBdq/Xgq5u394HF5IODijnPmv1/R/GX4vNo9l/z
+aYXs7/Th8lXp3ef953dz5+6i9nvcc8dfmnw09s0+z8jNfE+7jldfOgz4oAf
nPrKnX/bwmtyf34QHmv012PB31VMfOnvxQHOHcdptf5Z7M8hqak/mv07NHV8
+bdq4lWz3/q8OKDvLv5a7K9mfw8r/m4EYG7yl+a3H17M/mr264jUF0YAv6eY
+H9vcaTHpzTxfmTxrwecrZ8dHKdVmh+PKt4nwkfHcl6nj4r/oSO9LRv3h7v1
zs36a+JxZjGfV1OfcpOfNflPs3/vKyYf6+/EgdfEq2Y939/s3w62d6GO43OD
/mPEs+bHWcXkW008a+qXZn015VNHep53dPGlkd8066fJd5r11Jz/D1TrqyMd
3aM575p6oznvxxQTr5rzr6lPmvU6tjj+uvma/KBZT836aeLxuGLqgabe6c9G
POr4eGs063V8MflCE2+a9dL0B5p88sFi7gOa+NLkG015OKGYepKb9dLkJ815
/VDxJ+M36EinK3J/JeJLE08npqbeaOq/juW6UROPmnypWV9N/M2u1ldTrzU/
nlStnyZ/avKnZv81X6/+YRxozderyT8nV1+/Jn419V3zeXR8uas0/Y6ufySe
NPlVk19zE1/66KgnOj7OfZrzqjmvHykmv2nyr+bzavob/Xw0sJr8p4nHOanZ
f03+0Zx/zX5r+ldNP6H5/Jp40L+M/HBKcYTHbM36aOIhN+unyS+aeNHxx6/X
5GtNPGnWb261fprzrek3NP2v5rxo1kdTbz5aTPxozo8mv2nqkebza+qnJn40
5+XUYsJFU78050lzXjT5Q3N+NOdn3Cd19UWzXjq+3C2afk2zXvOKo7ws1OQb
Tbxo6qWm/9DET27qmaZf19Tb04pjO47T34z11qy35rxq8rdmvTX3PU08avod
TTzqM2M9P1bMedXUH/3p6D/01bGemnjU5DfNemriU4/fW8fNfeP07v+f0K2n
Jn4151eznpr8r4lnTX+riVd9SiyIpt/VEf6zPl78RKyfpj/R5Df95fiAmnWY
X0y+0t+K86mJj9x8Pk2+15xHzXnUnEfNeVxQzH1Wx/G8RtO/auqh5nxp+ovh
Yu6HurseV/GRm/yam/qkOX+a+qnppzT1QVNfNfGkOa+a/K2pt5rzojnPudmv
3MTXSLWfmnoxUq13bu5DmvqlqSea/KKp/7mZx45U+6GJL038j1T7o4m/kWq/
NOdlpNovTX+k6TdGqv3IzfqPFlM/NP1UbvLBaLX+mvyomQ+MVvsxWu2HJl+O
VvuhOR+afKbJr6PVfoxW66+pZ5r6rOknNPVmtFvHY7vzpak/mv3T7Fduzpsm
P2n2Mzf9pub8aX5c2GzOp+b8afKdZv6iqReafKepl5r91uyv5vxp9ldznjT7
k5v7T7vJj5p+R7N/mv3T7JdmfzT9xxmp2Y/c7M+4Z3X9gab+aPKlpp/JTb+b
m/OrOa+afKm5X2j2UzP/1JxfTb7UnE9NvtTUO8350+ynZv6j6Q/OLCZ/avJj
bvJlbtZbky815yM38yDNfUSznpr11OQ/zXpq+mnNemniX5OPNOt3VjH9lSZe
cxO/mnqjyT+a9dTkn9zkI03+yU0+0tSf3MS3Zj6oWW9NPdHkI03/rMlPOpZn
o2a/ctN/a+6bmnnC2cXkJ028a/ZLs1+5iXdNftHMRzTxn5v+TbNfmnykOR+a
85Gb86LJR5r91JwfTT7KzX5qzpcmP2nOW70/5xRTLzT9nea8tZv8pdlvzXnU
7K/m/Gn6QU090Zw/zfnSnC/NfCg3/Z2mP9DsV7s5T5rzlDuWf9u4j+r6A02+
PLeYeqM5b7nZD836a86Lpl5rzotmvTX1RXM+NOchN89n200917x/ocl3mv3Q
rH9u1j83+TA3/ZwmX55XzP5p5heafrrdzM804xXNfmvyqSafauJBs/+afNlu
4iM351UzL9XczzT1UnN+NecxN/HTbvKvpl/MTbxp8rUmX2vuB5ofzy+mP9KR
Ho/MTX7WxIum3mrys+a+rsnPucnXmvjJTTxp5rua+VZu4kcHl2viQVN/Nf2S
Zn81+5eb/dQ/ifygOf+a/H1BMfczzX5p9kuzX5p+VrNfmvOuqZ+a98ty0y9p
9ktzX9P0S5p5lybfa+prbvpdzX5p+iPNfFxzHvVXY7/Gfejwy3HeNP2SZr6u
2b9PFLN/uam/mv3U7Kfm/q3ZT838RHP+NPeV3Mz/2839UVPvNflaU+81+62Z
97eb/dbsb272W/84zqvmfQtNvdfUd83+a+bRi4rplzX7rTnPmv3VnF/9eOx3
bva73eRjTX3PTT+t2f/c1HdNfOQmX2jyRX/Tv2c+qItHTf+oT4oBoeY+rYk/
TX3QvE+Tm3jS/HhhMflEE1+5iTdNvGn6x9z0/7mJx9zUk9yEk47lX6yJR038
aeIvN/VHE1+afkATD5r+UXNf1+Qfzfts+sSIF00/qekXNfcRTfxo+onc9IOa
+qTpL6rPP+2i1JGv983NfUQzH8gd6zs9N/3quIe6+pg7lvcIHR93po56ckzu
aF9OyE286+gv5uaOL//0dkc8jGjqt6Z+6+hfztfk7/6OeniRjvZiiea86ah/
12ru+zri73rNeczN+dQRrzfpiNdbNP187vjvmCb/a/rLdkc+/bamPujIp/dW
8bciN/2NjuN+f7u5j+SmH9aRjh/MTb+sI38/lJt6V8Xrw5r6lzvy/yM6wutR
Tb6r4nFj7vjlT+aO+H0mN/exKr63VPG9Vcf95jlNvdbMc3Lz7V1VfO/Q1PeL
i5m/6ojnAzT5VUf8Ttf0Azri9xBNPtX0n5r5rI56d7Imn7WbfKfpBzT5TdMf
5Oa+oslfmv4hN/dbHfHwGR3zlmtzk/9ycx/W8eV+UUd83KTjuNyi479juSNe
btfcr6r4ubOKn7vaHfG1tIqvZTr6y7tzkx+r+FqpyV+56a9yx3Vibe745Q9V
8bc+N/lM059V8bmh3eSz3BG/v8vN/VTT71XxuknHvGxzFa9bqvjcWsXjds23
w2ry1cSZb+e8pJh8l5t+U9NvavJhbvpLTb+ouQ9p8p+mX9TkQ838PDfzGh3b
N1czP9XkS02+1FFPz9LkS01/pykv/U1+zR3xuUSTX3NH/H5Kk281+VNHebpe
M0/Q9Iua+YKmf2w390Md/x1rN/fJKn7v0OTTKj6XafpNTb+pya+5ua8WD5F/
NffXiTPz8v6mv9X0o/1Nv6rpN3OTr3Wcn0c1+brd5G9N/u7veB/7SU3/qulX
Nfd/HcvznGYeoCPeX8nNPGBxavK1Jl/reB53gCYfa+77mn5Uk69zk781+Vsz
P9fc7/ubeUC7mQ/kJv9r8r9mntbf1A/NfEEzX8hNfdHUF838QJPfc5Pvc/O8
Lzf1ITf9tWa+0G7qiaaeaOpFdR5u0/G8/vZ2Rz9zZ7upD+2mfuSO43N3dZ7u
rc7Tytzk7+q8rMpNvs7N+85VPD+kmT9U8fxwuyO+H6nie4Mmn+dm/qCZN7Sb
/l2Tz3PTz+cm/+emHlTnY3vuOA8vVPG+o87/lxbzfkpu5hea/lwzv8jNPCM3
8w1NfWg39SM382TNfUCT7zX5PTfP83KTv/ubfK95XTQ3+V3T32vmKZp8npt5
iiZ/a+YnuZkfa+Ynucn3mnyem3mLJr/nJt9r7gea55PtZl7TbuY31flYmpv5
jOZ+0N/Ug9zcBzT1oTov9+m4P9/f39STdsf5fKA6j2vazTxJU5+q87Y+N/Wn
v7mvaO4n7eY+kpv7RrupX9V5f6a/mV9V+WJzlR+2aOZXuZnP56beae5DE2fe
/9D8c1mzmY9p7lOa+ZemnmrqZ7upn5rnA7l5n0DH+Z+puX+1m3qqI52crJmf
5eb+pLk/aepju7kf5Wb+pqmfmvqpmY9p6qWmXubmfjR5pv62m/uWZj6Xm+e9
mnrdbuZ97eb+lpv63t/0A+2mX9DcFzX1vt08n+lv+oXqfC+vzvfdufn+yOr8
r9Dx/tBKzbyv3dTv3NTzKl+szs3z7tzU+yqfrJ080z+0m34iN8/XNfU/N/fZ
Kj9t7G/ut7npFybPkZ435+Y+XOWvrZr7cW7mp1V+2p6b+3O7uV/n5r69pNn0
C7npHzT9Q7vpHybOzIP7m/mxpl+ZOjNPyM08QTNPyE1/pOmPNPPs/maerZlf
5KYf08wz+pt+rd30c5p+rb+Zj2j6O837KJp5d27m35rnnf3N+3YTZ/q9djOv
6W/eD9TMczT9YH/TH2r6O03/1W76s9z0a5r5fW6e97ab71er8uPS3Mx3ps70
h/3N84WJM/3nxJl5VpWPV1T5eGV/M/+q8vH9VT5eVeXfB3LT32r62akz/XKV
r9dW+Xpdu3m+026e/1T5+2FNP5yb5z+a5z+TZ/rtyTPzPM3zqdz0z1NnnmdV
9WLzxJn+Pjf9fm76/arePNdu+n9Nfz9x5v3h3Lxf127uF7njffpXqvo37fJi
nu/1N/eR/uZ5Yru5v2juH+3meePrZ+azmvtHu3mfpr+5z/Q395/c3H9yc//R
3Gf6m/vP5Jn34zXz6v7m/tRunidr7k+a+1C7o96OTJy5b+Xm/qWZr+fmfdX+
5vn21Jn5f7u5n2nuW7mZz7eb+5nmfjV15nl8u5nHv36Of8Y0z/cnz8z/c3Of
bDfvE+TmeUFVD5dW9WlZf/N+2tSZ++ieY+6z7ea+OnHmeU1/c7/tb+7DuXnf
o6qvq6bO3Lfbzf24qsdrckd9XlvV53Wa71dqN8+DJs/crzXfD9XfvM+y55j7
+hvXzAPeOGZe8X+/Xub57Z5rnh/n5v2x3LxPNnnmfbR2M2/SzJs076dNnJlH
9TfzJ837bVNn5lV7jnmfb+rM919Nnvnnikkz7y9qvj9MM5/Lzbxu8sx8T/M+
Qe7/AHwgEwo=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{420.8333333333337, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.508387519671875*^9, 3.508473332375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"try", " ", "forth", " ", 
    RowBox[{"method", " ", ":", 
     StyleBox[
      RowBox[{"\:4e2d\:6307", "-", "\:65e0\:540d\:6307"}],
      FontColor->RGBColor[0.5, 0, 0.5]]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.5083876998125*^9, 3.50838771925*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pm4", "=", 
   RowBox[{"pd", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "All", ",", "4"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.508387797171875*^9, 3.508387800234375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{3.508387813359375*^9, 3.50847337815625*^9, 
  3.508540424375*^9, 3.50871404*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ddiff", ",", "dsame"}], "}"}], "=", 
   RowBox[{"eucDist", "[", "pm4", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ns", ",", "nd"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Length", "[", "dsame", "]"}], ",", 
     RowBox[{"Length", "[", "ddiff", "]"}]}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mdsame", "=", 
  RowBox[{"Mean", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ddsame", "=", 
  RowBox[{"StandardDeviation", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mddiff", "=", 
  RowBox[{"Mean", "[", "ddiff", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"dddiff", "=", 
  RowBox[{"StandardDeviation", "[", "ddiff", "]"}]}]}], "Input",
 CellChangeTimes->{{3.508387756953125*^9, 3.50838775784375*^9}, {
  3.508387803140625*^9, 3.508387803546875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "4900"}], "}"}]], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["0.2437524056490425`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["8.847616304708243`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["1.2849851702793955`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["1.8303995373061939`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["0.26221700673406145`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["29.560241834374636`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["7.917021328897574`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}],

Cell[BoxData["5.4968502542896065`"], "Output",
 CellChangeTimes->{{3.50838781109375*^9, 3.5083878149375*^9}, 
   3.508473381125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dx", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dds", "=", 
   RowBox[{
    RowBox[{"BinCounts", "[", 
     RowBox[{"dsame", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "ns"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ddd", "=", 
    RowBox[{
     RowBox[{"BinCounts", "[", 
      RowBox[{"ddiff", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "nd"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", "dx"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Length", "[", "ddd", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdds", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "dds"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pddd", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "ddd"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"p50", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5083877864375*^9, 3.50838778840625*^9}, {
  3.508387867359375*^9, 3.50838786928125*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxd0D1OAlEUxfEXCQkhJBhBw4cBRgEFFRQWMBMbGiqWYKKtvTYsgsbemkaX
IRUrMCZWdjQUFMg7wz2Zc5PJ5J8Zfu8OwcPz5PHAOXf/f+3u+3ktzkffL5/h
0M9S7j/WX37+wuT7K2to67jf4/c31gvfLtqfi9+nrN/8pCOXmIz1k5+sNfyc
eHlrnHco3pG8XxC/KPsci3cS4Xtm8feWxCvbc3gV8aqy/6l4NfHq0g3Zh43z
AvHO5Hw2vHPx2PCa1piWeGx4bfHY8C7EuxSPDa8jHhteV7wr8djwrq3x/7Ph
3YjXE48Nry9eX57fJr0pG9/D9nz5TvZhe+6DjRkkvTEb+7I998vGfkPZj70F
4Wreug==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxd02tIk1EYB/AxWZQEdk/TbG5NnZdd3klQlOep2JcakRZFgbXK+cHCZqyL
iaaRlc2siWvOSw2SJUVUZGiYdFugkEGmrmWYsZxFSlDI/OCHdOe/QT28L+Nw
zvs7z3nOs6TDx3NNYpFItGX2nfsNh1u9cdT7fBvTheIDeybP/P41xoKxn0WZ
26LHpivZ21BMsAX3W2vGDdcx/4dV5tzt9b+rY1ybZusl6jujY/VYP8Pki7Nv
DdmbWF9oLKLOxKqfOZ038X0UKXdsSPL9cDJnKCSRee7NpzKDuG/X6RZWEIro
yDz3F1LQJ/G4+13wYsjTUPZrjzG83yJaPbB59mmBt4Qan2z93L8yvP9S8pk9
7SmCC/4ymiztEA+3NSCf5SRpm7m2d6oR3grqHSwp3tfuhBdLuVpLVp7ggBdH
Cc2TjkP6enir6FNNUdD4sB5ePDnn0ou3I/8Emp56MG90px1eIp30PnozknwD
3hoK15OPpaQ/l3Jv7KoN+Uhptnhx+c467JeEelbDk+G8tdhfRq3B8f2m1zZ4
csqXdjNvmhWenA76X3QPDNXAW0vj2V0VH3dfgaegwrynL33l1fAUxO/XCi+Z
OgKagi9dVfCSUc/L8FLIHEroErzUyHrupaIeVfCUxPvrPDwl8f68AC+NeD9W
wEuPrOdeOvH+PgsvA/UpQf0z6GKte3tAVgkvE+cphaeKfM89FfqpDJ6awv8X
7qn/209DKuu628ObznCvQoP7K8Z5NBTr0De9nyznfpyWsnoExYjtFPLR0iuj
svDbkRPce6z91xMJ1NOimAh0mLlnEMj1mx0YPHoM+QroHwv3AgL6oQj56ZBv
IfLT4T5M7C8/KsC8
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{555.0000000000007, Automatic},
  PlotRange->{{0, 20}, {0, 0.4}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.508387855078125*^9, 3.5083878696875*^9}, 
   3.50847338378125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.35"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Euclidean Distance\>\"", ",", "\"\<Percentage (%)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Dashed", 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"Thickness", "[", "0.001", "]"}]}], "*)"}], "}"}], ",", 
      RowBox[{"{", "Dotted", 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"Thickness", "[", "0.002", "]"}]}], "*)"}], "}"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Innerclass\>\"", ",", " ", "\"\<Interclass\>\""}], "}"}]}], 
   ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"LegendSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.45", ",", "0.2"}], "}"}]}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.35", ",", "0.35"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5083879139375*^9, 3.508387944734375*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{
      {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxd0D1OAlEUxfEXCQkhJBhBw4cBRgEFFRQWMBMbGiqWYKKtvTYsgsbemkaX
IRUrMCZWdjQUFMg7wz2Zc5PJ5J8Zfu8OwcPz5PHAOXf/f+3u+3ktzkffL5/h
0M9S7j/WX37+wuT7K2to67jf4/c31gvfLtqfi9+nrN/8pCOXmIz1k5+sNfyc
eHlrnHco3pG8XxC/KPsci3cS4Xtm8feWxCvbc3gV8aqy/6l4NfHq0g3Zh43z
AvHO5Hw2vHPx2PCa1piWeGx4bfHY8C7EuxSPDa8jHhteV7wr8djwrq3x/7Ph
3YjXE48Nry9eX57fJr0pG9/D9nz5TvZhe+6DjRkkvTEb+7I998vGfkPZj70F
4Wreug==
        "]]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Dashing[{0, Small}], 
       LineBox[CompressedData["
1:eJxd02tIk1EYB/AxWZQEdk/TbG5NnZdd3klQlOep2JcakRZFgbXK+cHCZqyL
iaaRlc2siWvOSw2SJUVUZGiYdFugkEGmrmWYsZxFSlDI/OCHdOe/QT28L+Nw
zvs7z3nOs6TDx3NNYpFItGX2nfsNh1u9cdT7fBvTheIDeybP/P41xoKxn0WZ
26LHpivZ21BMsAX3W2vGDdcx/4dV5tzt9b+rY1ybZusl6jujY/VYP8Pki7Nv
DdmbWF9oLKLOxKqfOZ038X0UKXdsSPL9cDJnKCSRee7NpzKDuG/X6RZWEIro
yDz3F1LQJ/G4+13wYsjTUPZrjzG83yJaPbB59mmBt4Qan2z93L8yvP9S8pk9
7SmCC/4ymiztEA+3NSCf5SRpm7m2d6oR3grqHSwp3tfuhBdLuVpLVp7ggBdH
Cc2TjkP6enir6FNNUdD4sB5ePDnn0ou3I/8Emp56MG90px1eIp30PnozknwD
3hoK15OPpaQ/l3Jv7KoN+Uhptnhx+c467JeEelbDk+G8tdhfRq3B8f2m1zZ4
csqXdjNvmhWenA76X3QPDNXAW0vj2V0VH3dfgaegwrynL33l1fAUxO/XCi+Z
OgKagi9dVfCSUc/L8FLIHEroErzUyHrupaIeVfCUxPvrPDwl8f68AC+NeD9W
wEuPrOdeOvH+PgsvA/UpQf0z6GKte3tAVgkvE+cphaeKfM89FfqpDJ6awv8X
7qn/209DKuu628ObznCvQoP7K8Z5NBTr0De9nyznfpyWsnoExYjtFPLR0iuj
svDbkRPce6z91xMJ1NOimAh0mLlnEMj1mx0YPHoM+QroHwv3AgL6oQj56ZBv
IfLT4T5M7C8/KsC8
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameLabel->{
       FormBox["\"Euclidean Distance\"", TraditionalForm], 
       FormBox["\"Percentage (%)\"", TraditionalForm]},
     PlotRange->{{0, 20}, {0, 0.35}},
     PlotRangeClipping->True], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.35, 0.35}, {0.8, 0.55}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.35, 0.35}, {0.8, 0.55}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {Hue[0.9060679774997897, 0.6, 0.6], Dashing[{0, Small}], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Interclass\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Innerclass\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
               Automatic, {1, 0}]}}, {}},
          AspectRatio->0.4444444444444445,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.26}, {-0.1, 2.42}}], {0.35, 0.35}, {
         Left, Bottom}, {0.45, 0.2}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->{419.1666666666664, Automatic},
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.5083879163125*^9, 3.508387948265625*^9}}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"pm4", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"pm4", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.50838807534375*^9, 3.5083880774375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"1.6", ",", "2.5", ",", "0.0005"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.508388214859375*^9, {3.50838846590625*^9, 3.508388467765625*^9}, {
   3.508388519421875*^9, 3.50838852559375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.9939999999999567`", ",", "0.08489795918367347`", ",", "0.08`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.50838738059375*^9, 3.508387435234375*^9, 
  3.508388132171875*^9, 3.50838826153125*^9, 3.5083884255*^9, 
  3.508388493453125*^9, 3.508388579453125*^9, 3.508389062046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VF", "[", 
  RowBox[{"tg", ",", 
   RowBox[{"classifyDist1", "[", 
    RowBox[{"pdata", ",", "templ", ",", "1.995"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50838908465625*^9, 3.508389123125*^9}, {
  3.508389164765625*^9, 3.508389170859375*^9}, {3.508389233390625*^9, 
  3.508389286859375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0848`", ",", "0.08489795918367347`", ",", "0.08`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.508389171609375*^9, {3.508389233796875*^9, 3.5083892871875*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"r4", "=", 
   RowBox[{"RocPlot", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "20", ",", "0.1"}], "}"}], ",", "0"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.508473331109375*^9, 3.50847333215625*^9}, {
  3.508540433828125*^9, 3.508540459328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.50854043775*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3A+o3lUZwPHXlVqaaTbT1NKV5p+sqU1Ts+1dM/8357+pBRaaYIgVlmSC
cTHEGC3BAkMWshCWYIzFZTEaxjIWtrClYIOJ3VjaaEpqKZWt2vt833u+dObD
Tj/ueyfSJbh8su7ue85znj/n95uzrvnCJdfN6PV6G/fu9Qbf//vrqv7//Rry
2JU7+Yw9Z6+YePr+ea/uKxKP494V/SfuXP+PjVf+dPjPF/+PvrzypcOf//Pi
bwz+8RG/bHNvFx67ZPjn/bqbe/U/v7h/91Hn7fjPY80efLqZa598dfcuHv78
3xXPmzP4byZe3WOL+s/MXLvs9nu2NJv1/cPw5y3qL31p+aq5c55JfFHlhTt5
8Nsvu/2Pu/S/4+vCfvz6G7fu0vz/Lxju35+Kn1x94+bVN25LfN5wPZ8d+tyd
zPr+OfE5lc/uHzRYvkufH/qs4frn/tyD++9YoheazY9/MTX795fiA2ID/jr0
gsrzK/eH+62vve36wW9QzH6+XLzv1QvXbTjub8Xsh45/fMvfU+/4YYP/R7PZ
v1eK49ed+c9i9k8PVuemff6V+oeD5V2l2b9ef9LH33L6jj8i9+CnXb1wj2KW
S3OeZ/T3CJ/Z/0EEeG727w3Fr+yI5kO3afbrjcXx4+/W7J+O5T59z+Hvc8Zw
//Ya+rT+92OBNedv7+KXB//zJzT7/abiHb/cgmtv0+fHB35zMedxn2L2c9Kn
7uT4nx+6b2r2f9Jz+ocN/vjr35L6k/EL7jf0yTv585sHP1ATH28tJj4mfeLw
vO9fvE+sxwHFR8Z6aM5D7ti+o95WTDxpzr/+UvyBmvU9sJh406zf24vj496o
Xxj8ces08aY5XzOL4+Ndn5v402dFAjmo+KpYf8365/567Mc7iolfTfzmjuVb
pX81OA2zDx6ejxOG+6mJfx0f70FNfjikmP3U7N87i8l3+muRH/T3IuAOHf5+
xw7Pgya/a+L/sOL449Zp9k+zHYcXkz/0RZEf3jX0Uf2vDNLbRO7YjqvfXcz5
0KzvEcWxXU9o/vwji1lPTTxpzpMm32nysY5f9+nc1F9NfM4a+shdmvOqWT/N
fmvOr45fd0ITz+8p5vxq4lcTD/o3g+1e8N7i30f85ua868l1mDT5XbMfmnjX
lGfNeh1dfFkEqOb8a9ZLk9805/99xeQ7TTxqzpP+UfyCmnx4TDHxqskHmu/H
Fsd2zNXEr6b/0MSf5vMfV33+3MSLZj2OL/5mxI/m8+cmP2r6D03+0T+L9uH9
xcSbJj9q+gU9mecmTT7S1E/NemrOu2Z99SmxYZp41MTjB4o5r5p+oN3sj/5y
fABNfH6w+NvxAXSk7836FxGPs4uJR0291pxnTb+oyf+a3+fEan018aGJD03+
0Zx/TXxr2s2Tijlvms+nqZea9c3NPKLJr5p41LHcqzX1UrNemv5d8/3k1MSz
Jp/rSNc3afplfXTEt2a9NeurWd8PFVOPNOdTk381+U0TX5r40rEcyzX9WW7q
veb7nGLiUVPvNPVGs165Ix0s0+QHTT7T9Kea9TylmHyh4x/P1qxXbtZPE6+a
86qJV8165iZ+NfVBE8+aeNZ7xQKdWu2HZj80+SE366+JX81+aOqx/nEcUE1/
o9mPDxeTL3IT35p+WbMfmvyhWV/Nemrmw9OK6Zc08Zub864jvFZo1kezHpp6
cXr1eTX9hSY+NfGp+fyaz6+JL03/cUYx/ZCmvmg+vyZ+NOuhiZfcxIumn9fU
m48Ukw818aBjOe7R5DvN+dP0N5r4yE28nFlMv6OZh/R3I6A19xma/KfpjzTz
kGb9NPGlWU9NftTkx48W0z9p6oumX9LUb83506x3bvKjZv0186nm+9xq/TXn
VbP+mnlCE7+a9df0S7nZD83652a95xVz3nWE1wIdvFZzvjXnW9MP5aZ+a773
izn/mnqi6e8050+THzT5Kjf5SxNPms+rqa+a9dfUJ8350Myfmvynycea+xxN
PtJ8n19MPdP0j5p6nJvzp1nfdlMvNOutyY+aeNasr2b9NPVD039p8o0m32ji
62PF9Lea+2zN59P0L5p8qjnPmvjS9Oua+NLkL816aOZpTX3X5DNNPGrmK816
aeYBTb3RfF9QTLzl5vxq4i039UuzH5p6oMmnmnjT9AOa9db0l5r6oDnfmnqt
ya+a/KY535r11JxvzfnW1JezqvXSzIOaeqOJV01+1MRvbuJZkx9zc7+t6R80
8axZ/9zUl9zcD2viW3P+NfOK5j4nN/H88WLyqaZ+auq/Zn808azZD836a9Zf
kz80/UJu8klu1lOTLzTxrol3Tb+kiXdNvGvWX5OPzy4mvjX1XrOemvysiXdN
vsjN+mvytaY+aeJTky80+UJzH65ZP028avJHbtZX0y9o8ocmfs9JzTyT+ZBh
fdTshybfaOZlTT+gqf+a5y+a9dbEqyafaOJXs/6aeqiJZ01/oekvNP2FJt41
9VOTbzTxn5vzoMk/mu/nFlMPNPlHs1+afKOZp9vN+dKcL02+0tRfzXnS1AtN
Pdbst2Z/NfuXm/2c9AHD/dTsl/5qnCfNedKcp9x8P6+Y+UqT3zT5TfM+g6Z+
6G9FAtC0D7k5f+3mfGr2r7vZb009ys1519zXaPoFTTxo5ksd270hN/uvyaea
86mJB02/lpv4qPf//GLyryYeNPfBmudvmvOpOZ+aeqbZX02/rOkvNP2yJj9r
9iv3Z+P85mZ/NfOLZj8151lTLzX5WLOfmnys2S/N/lxQHMt1hGYeyc36a46z
pt/IzX61m3yrOX+a+qo/HflWXxP7kZv7Sk391OyHJr9q7jfazXnMzXnU7J/m
vOUmH19YHB9n/9z095p+SBMfmnjQ9Eea/kgTH/q38QMn3Rvub272V3NeNfOX
pl/S9Eeafl9TT3Oz35rn45rzqNnP3JxP/ZPIt5r+SE++lztp9vcTqdlPzX7m
pn/S3Idpzq9m/3Kzf5r6qKmHudlPzX5q6qNmPtHst2Ze1uyvZl7R7K9mfzX3
45pvC4vZj9zUQ0091OyH5nzlZj7Uj0V+1uyfpj7mZt7Ozf5o6qFmPzT9i2b9
c7MfmvlR09/kZn7UvB+iqZea85ab/buomPqpOW+a/jY3+6c5b5r+VpM/202/
q9lfzfON3JzXdpOPczPvaPojTXzoZ6NAac5vu+mnNPOsJl408aKJD839cG76
5e6O9ZmxqJj4ajf5RJPf203+yR3HYZYmP2n6AU18a14n0szn7Y7jdWZu+g0d
4T8/N/2rjvxydrN75FMd9WKRpn/VEV+LdfQDn9LMJ7kj3q7T0R/ekJvzlzuO
3825ua/QzEM6vsY0+T839xuaep6b+p47wvNeHfF6X+748ffnjvh9QNMf6giv
cU290pG/13Q380XuiO+HdMTvw5r6mDvC6VHNPJk7uKmKx6c0+VHHPLaliten
dYTP1ipet+no75+r4vXF3Pz1qCo+t2vy6cXF1G/NfaKO+NxPU89zkx9zkx81
+XDqHPXuJE3/kJv8mJv8qMmPOubXC3LTb2jyn2YeyM08nzvmpes0+U7HfHxz
bvKZjuNxa7vja6zdsfx3VPG1VEe9vit3xNt3ctNfa/qn3OQ7zXyk4/71Ac39
RxVvqzT5sLtjO9bo+PEPVfG4rorHhzX9nI56/GgVf49r8lW7yWe5md9zk980
/Z7mr5fmZv7IHcdjexV/vUtS89chNf2jJv/lpr/UUY8P1hGPh2vyoY54nKUj
/o7R3P/riL8TcjPv5qZ/1OS3dpP/ctMPTp/Jt5r+U5NvczP/5aYfbXecl89o
8nW7uX/XMY7ckJt5U3MfkZt+VpP/NfdNmvlUk781/Wx1fpZU5+MuzX1/dV7u
yR3PM++tzstyzfMCTb+am/yto39Yqelvq/Mz3m7yt6Zf1fSr1flaV8X3+iq+
N2j6UR33i5tyk79zx/Hdkpt8rcnXVTy91G7609zc11fxN+PS1PSvuSM+985N
vm83+b67ef8tN/cPmvqhqR/dzX2Fph/X1B/N/YWm3mj6b0290TEPnqqpP7m5
v9DUn9zUA83ff8tNvdDcT+Qmv2vyuyZf56Yf1+RrHefpi5r7iNzk69xxfm5t
N/cX7Y6/n3lHdT6WaO4vNfcXuenfq/i/Nzf3F1W8rshN/q/idWVu8n8Vz+O5
ue/Q3F/kph7kpj7k5v6/iv/1Vbw/UsX7htGZ+2HN/Uh1fjZX52dCMz/k5r6k
Ol9bq/PzfHdzf9Ju6lVu6ld1frZrvi4rpp5p6pPmPkYzf+TmX8eRm/mk3dQj
TT3R1BNNPdHUk9zUk9zUF0190dSX3Nz3aOqL5r5HU180843m9U/N86V2U380
90PtjvBa1G7mne5mHmo391eaetlu5qHc1FdNfdW8D6Gpn5p6qamHuZmHuju+
xjTPhzXzVG7mqyofLKnO/9J2M49p6q9m3tLcp1Xn/752M6/l5v4tN/U8N/dz
uZn3qnyyUnN/V+WX8SqfrK7yx9ru5j6vyifrNfd11Xne2N3c91XndZOmPlfn
cUJzf1edv63V+duWm+cXuZkPu5v6227ep67O6/bpM1+Xp+Y+MjfzraZfyM38
2m76Cc38OnXmeZGm39C8v56beVhzf5qbfkRzn9puns9r+o/uZt7NTX/S3fQz
mn5G08+0m/la0890N/2Jpt9od7xvtrjd9Cea/qS76Vdy8zxudOb+oN3cL2ju
g9vNfbGmf9L0S+2mP6ry35jmvnn3mf6ryqd3Vvlx6dSZfkxzP56b+/Eq3y3P
zf245j6ku+mnctNfVflzVZUPx9tN/1XlyzWjM/1alU8fys39fW6ez+bm/iZ3
5M9H2s39TLvpN6v8vLHKv493N/1mbvrPKp9O5Ob5hOZ+SNOfjs4Rjs9p7ofa
Tf/abvrX3Nw3Vfl1++jM1+Jmc7/VbvpbTT+r6U9z02/qyJ8Hap63aPrP3PSb
ozP3aZr7tNz0s7m5X8vN/Zrmfi03/W+76Xc193Htph/OTT/bbvrZ6TP9cm76
Yc19oOb9hXbTH7eb/nh0pt/Ozfu77aa/1twH5uZ+sN30x5r7Qk3/227646kz
/bOmf546x9dYbvrj3PTH02eeL+bm+WJ3cx+qef5Y5e9l7eY+NDf/vogqX6+Y
PtPfT52ZB6p6snL6zLxR1aPx6TPzimaeyM3z3NzMC1U9WT868/xY8368Zj4Y
nZkf2s3z56rebMrN+/q5mTeq+rJFM2+0m3khN8+jq/rzYm7+vnNu5oPcPI/u
br6uSM2/v7vd9PejM8/P2808oZknNM/Tc3O/PXVmHsnN83nNfKGZL7qb+UMz
T2jeD2s380e7+fscrx8zH2nmn9y8v6C57283zwNyR72Z3928D6GZb6bPzE+a
9yVy8/xBM67mZn7RvA84OjP/aOaf7mY+mjrzPKLdzFu5eX9D8/6GZj7rbua5
7ubvS43OzHfdzfuZVT0eazfvo0ydeX5S1eM7p8+8H1PV86Xt5nlMu5kf283z
m9zMm7mZL6fOzKOa92/azTyZm/dx2s38qJnvqnq6qruZ17qb+a6qz2uq+rv2
tWPeN9p95nmYZp5tN8+3qnq/od3Mr6Mz8+vUmfl2dObf16OZjzXP40bneJ/i
qdzM39Nn5vvcvP/Wbp4Xjs68X5eb9+t2n7mv2H3mvkPzvl938/zz9eP/AJTM
opg=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{420.8333333333337, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.508387519671875*^9, 3.50838818153125*^9, 
  3.5084734483125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"try", " ", "fifth", " ", 
    RowBox[{"method", ":", " ", 
     StyleBox[
      RowBox[{"\:4e2d\:6307", "-", "\:5c0f\:6307"}],
      FontColor->RGBColor[0.5, 0, 0.5]]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.508389375046875*^9, 3.508389392328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pm5", "=", 
   RowBox[{"pd", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "All", ",", "5"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.508389411890625*^9, 3.508389414765625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{3.508389422125*^9, 3.508473488125*^9, 3.508540491296875*^9,
   3.508714056265625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ddiff", ",", "dsame"}], "}"}], "=", 
   RowBox[{"eucDist", "[", "pm5", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ns", ",", "nd"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Length", "[", "dsame", "]"}], ",", 
     RowBox[{"Length", "[", "ddiff", "]"}]}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mdsame", "=", 
  RowBox[{"Mean", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ddsame", "=", 
  RowBox[{"StandardDeviation", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mddiff", "=", 
  RowBox[{"Mean", "[", "ddiff", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"dddiff", "=", 
  RowBox[{"StandardDeviation", "[", "ddiff", "]"}]}]}], "Input",
 CellChangeTimes->{{3.508389416484375*^9, 3.5083894171875*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "4900"}], "}"}]], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.50838955265625*^9}],

Cell[BoxData["0.24730388475510007`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.508389552671875*^9}],

Cell[BoxData["15.17394048050034`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.508389552671875*^9}],

Cell[BoxData["1.2961118416765043`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.5083895526875*^9}],

Cell[BoxData["2.4212536379155343`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.508389552703125*^9}],

Cell[BoxData["0.2706394618446854`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.50838955271875*^9}],

Cell[BoxData["35.08212482446986`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.50838955271875*^9}],

Cell[BoxData["7.761924889993551`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.508389552734375*^9}],

Cell[BoxData["5.7115837132097225`"], "Output",
 CellChangeTimes->{3.508389427859375*^9, 3.50838955275*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dx", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dds", "=", 
   RowBox[{
    RowBox[{"BinCounts", "[", 
     RowBox[{"dsame", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "ns"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ddd", "=", 
    RowBox[{
     RowBox[{"BinCounts", "[", 
      RowBox[{"ddiff", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "nd"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", "dx"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Length", "[", "ddd", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdds", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "dds"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pddd", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"dist", ",", "ddd"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"p50", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "20"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.4"}], "}"}]}], "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{3.508389560703125*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxd0rsvQ2EcxvG6RAgRl7pT6tq61KX2t5uZ2SQuo53ZbLEwmzt3Mtgk9QcY
xSQWiZBIDBzf9n1ynl/SnHx7zvt535w2f3C6d9SayWQO/z7J1efmOpmHkL4+
heL+5f1noR62y8m82P3XUMtdvO3W7gLKezjPVneez24bz3807lfDyXEyX7FZ
/x2a+z/Wk/lprL9qfl9Jn68lNn5bJb2+PTb7dVTSXqd5XeZ1m9djXm9sps+e
V+P32/oB22/QvGw8L17WvCHzhs0bMW/UzqfGGzNv3LwJ8ybNU+NNmZczb9q8
GXteja/+X17Ox/fDfnnzZs1T46k5z5ydX83Mm6fGU+MtmKdmFs1T46nxlsxT
MwXz1HhqvKJ5ambZPDWeGm/FPDWzap4aT423Zp6aKcXfH69knhpv3Tw1sxGb
/5caX816NfupmU3z1HhqPDWemtkyT42nxlPjqRtKbN6PGk+Np8ZT/wLrMU7G

     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxd1HtI01EUB3BLE60o31ppuemm87W5SWSZv1NhQkVICJmRhjpXS1LKSrM0
TUTTTAt7LKIgscIe+EdIWPQGhaIS0yyxmU4TCjIpjCJyne+u8LtsjMs993PO
Pfe3nyIrf4txtpOTU8701/4rH5YL9tEltWgTrH0P0yWe90tNRcnpr5/mS3EG
+xiWqupbNo4qy7E+Lh3oa3s+qK6SWPkm/dXfrP7UfBzxk2LdlGsfP6VtLc9W
dVfUY/8vyf1Wc93Ypgbp5Qv7+CPmKIuktZGa4fgziJ9FUz/uuFpTmuA7k83V
9NuY1oj9LvTK6+DkdrfzyOdKcZ161WDjWXhu9GSnxjySfRqeOzkXXJ9rm2qE
N0/kY2++zFtA69tLdGknLPA8aCyx49i7VAviPcgvc8I3c6IJvqeY834vkZ/z
eZOjH+z5kLXLXJzt4sjvQ7tUxgRTRQM8X1Eve37E93MKnr/MC6AQz8TLvU21
8AJEPHuLxJy9xZQ5/OhBT28dvCVk3nHvcX9pDbxAUQ97gRRwLunim6+O+wwi
zeaViv7xGnhLyXGf7C2T1Rcs6uP4YCrxuZ08dLgSfjDF1C6/+mF1tfR/u0FB
8XO016y2SuRTiHzsKdGfcnhK9LsCnpKSysJabSfLUU+ImLMXQkE9a6Y/R+GF
0pXvUsbbPUfghaJfZfBCRTx7KvSjFJ6KWvNWZL33LoanFvnYU4t49tSy+sLI
cnfdQLe/wwuT1Rcu9rMXLvKxF47+FcHTiDl7Gll9EehvIbwImRdBbTfiRgZM
h+BFinX2InGfJfCiZF4U/l/74UXJvGjqvKT6MtpeAC+a7odEfx5aWAgvBv3Y
Cy8G+XfDixE+e1oRz54Wz8M+eDr4OXi+dGKdfZ3web8OXgby6US97MXiecmD
NzNnLxbnNcGLpfZRXe7HDiO8WOL3rxmeXtTPnh7rG+DpyfF+Zk+P+rPgOeLT
4RmQfyv6Y8D5U+EZcJ4UeDPr7BlE/f8A4ZmWkQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{550.8333333333336, Automatic},
  PlotRange->{{0, 20}, {0, 0.4}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.508389470796875*^9, {3.508389555953125*^9, 3.50838956146875*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.25"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Euclidean Distance\>\"", ",", "\"\<Percentage (%)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Dashed", 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"Thickness", "[", "0.001", "]"}]}], "*)"}], "}"}], ",", 
      RowBox[{"{", "Dotted", 
       RowBox[{"(*", 
        RowBox[{",", 
         RowBox[{"Thickness", "[", "0.002", "]"}]}], "*)"}], "}"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Innerclass\>\"", ",", " ", "\"\<Interclass\>\""}], "}"}]}], 
   ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"LegendSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.45", ",", "0.2"}], "}"}]}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.35", ",", "0.35"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508389592484375*^9, 3.50838959865625*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{
      {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxd0rsvQ2EcxvG6RAgRl7pT6tq61KX2t5uZ2SQuo53ZbLEwmzt3Mtgk9QcY
xSQWiZBIDBzf9n1ynl/SnHx7zvt535w2f3C6d9SayWQO/z7J1efmOpmHkL4+
heL+5f1noR62y8m82P3XUMtdvO3W7gLKezjPVneez24bz3807lfDyXEyX7FZ
/x2a+z/Wk/lprL9qfl9Jn68lNn5bJb2+PTb7dVTSXqd5XeZ1m9djXm9sps+e
V+P32/oB22/QvGw8L17WvCHzhs0bMW/UzqfGGzNv3LwJ8ybNU+NNmZczb9q8
GXteja/+X17Ox/fDfnnzZs1T46k5z5ydX83Mm6fGU+MtmKdmFs1T46nxlsxT
MwXz1HhqvKJ5ambZPDWeGm/FPDWzap4aT423Zp6aKcXfH69knhpv3Tw1sxGb
/5caX816NfupmU3z1HhqPDWemtkyT42nxlPjqRtKbN6PGk+Np8ZT/wLrMU7G

        "]]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Dashing[{0, Small}], 
       LineBox[CompressedData["
1:eJxd1HtI01EUB3BLE60o31ppuemm87W5SWSZv1NhQkVICJmRhjpXS1LKSrM0
TUTTTAt7LKIgscIe+EdIWPQGhaIS0yyxmU4TCjIpjCJyne+u8LtsjMs993PO
Pfe3nyIrf4txtpOTU8701/4rH5YL9tEltWgTrH0P0yWe90tNRcnpr5/mS3EG
+xiWqupbNo4qy7E+Lh3oa3s+qK6SWPkm/dXfrP7UfBzxk2LdlGsfP6VtLc9W
dVfUY/8vyf1Wc93Ypgbp5Qv7+CPmKIuktZGa4fgziJ9FUz/uuFpTmuA7k83V
9NuY1oj9LvTK6+DkdrfzyOdKcZ161WDjWXhu9GSnxjySfRqeOzkXXJ9rm2qE
N0/kY2++zFtA69tLdGknLPA8aCyx49i7VAviPcgvc8I3c6IJvqeY834vkZ/z
eZOjH+z5kLXLXJzt4sjvQ7tUxgRTRQM8X1Eve37E93MKnr/MC6AQz8TLvU21
8AJEPHuLxJy9xZQ5/OhBT28dvCVk3nHvcX9pDbxAUQ97gRRwLunim6+O+wwi
zeaViv7xGnhLyXGf7C2T1Rcs6uP4YCrxuZ08dLgSfjDF1C6/+mF1tfR/u0FB
8XO016y2SuRTiHzsKdGfcnhK9LsCnpKSysJabSfLUU+ImLMXQkE9a6Y/R+GF
0pXvUsbbPUfghaJfZfBCRTx7KvSjFJ6KWvNWZL33LoanFvnYU4t49tSy+sLI
cnfdQLe/wwuT1Rcu9rMXLvKxF47+FcHTiDl7Gll9EehvIbwImRdBbTfiRgZM
h+BFinX2InGfJfCiZF4U/l/74UXJvGjqvKT6MtpeAC+a7odEfx5aWAgvBv3Y
Cy8G+XfDixE+e1oRz54Wz8M+eDr4OXi+dGKdfZ3web8OXgby6US97MXiecmD
NzNnLxbnNcGLpfZRXe7HDiO8WOL3rxmeXtTPnh7rG+DpyfF+Zk+P+rPgOeLT
4RmQfyv6Y8D5U+EZcJ4UeDPr7BlE/f8A4ZmWkQ==
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameLabel->{
       FormBox["\"Euclidean Distance\"", TraditionalForm], 
       FormBox["\"Percentage (%)\"", TraditionalForm]},
     PlotRange->{{0, 20}, {0, 0.25}},
     PlotRangeClipping->True], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.35, 0.35}, {0.8, 0.55}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.35, 0.35}, {0.8, 0.55}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {Hue[0.9060679774997897, 0.6, 0.6], Dashing[{0, Small}], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Interclass\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Innerclass\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
               Automatic, {1, 0}]}}, {}},
          AspectRatio->0.4444444444444445,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.26}, {-0.1, 2.42}}], {0.35, 0.35}, {
         Left, Bottom}, {0.45, 0.2}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->{460.8333333333338, Automatic},
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.50838959425*^9, 3.508389599625*^9}}]
}, Closed]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"pm5", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"pm5", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.50838954515625*^9, 3.508389546421875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "0.0005"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508389728953125*^9, 3.50838973553125*^9}, {
  3.50838979453125*^9, 3.508389799015625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.8184999999999099`", ",", "0.07714285714285714`", ",", "0.08`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.50838975565625*^9, 3.508389837640625*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VF", "[", 
  RowBox[{"tg", ",", 
   RowBox[{"classifyDist1", "[", 
    RowBox[{"pdata", ",", "templ", ",", "1.84"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50838986271875*^9, 3.50838993325*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.08`", ",", "0.08`", ",", "0.08`"}], "}"}]], "Output",
 CellChangeTimes->{{3.50838986940625*^9, 3.5083899285625*^9}}]
}, Closed]],

Cell[BoxData[
 RowBox[{
  RowBox[{"r5", "=", 
   RowBox[{"RocPlot", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "20", ",", "0.1"}], "}"}], ",", "0"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.508390655375*^9, 3.50839065615625*^9}, {
  3.508473348375*^9, 3.508473349109375*^9}, {3.50854049975*^9, 
  3.508540506765625*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.508540511421875*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3H/M1VUdwPFHCq3MJMQ0tNDSFDNFQxIzuITgzwABCWuzprnZHNUsl7XZ
ntkczc3clM3maM7GRm5PazRHuZjNaDSylWVDF85RhjaRQkszjBn38/5y3vPQ
Z57uLtUfOdfdSx4enu85n1/n3EvHX/nZxVePGxkZmXPwyEj/9dX/XN77v/+X
vPzVHv3ofj5n/Olrt21fM/tfeuTf9Oiy6tcrj17W+b42j9S/vrS3ZeWm3Q8v
/1H36/ubr/9J9/VLel/r//KUn3Ve3H39Lztf+pq+/YQL9/776+77Vx5dVP36
sL1wP/N8v+m8oLdt+6QNq296NDXP/9vZr8Q/l/T6v3vShseL+f6/bzZ//h+K
b33hnnWzpj/V/XkXd3/+04kv2s/8fM+k5ud9tvOFlS/o3XTnkl3XvelPqdnP
P3c+vzd7ev+/7Oo8v/fpscP3PsJzxTzv88VP9X/cO//SeV7l83oTYgH+2nlu
tz77PKf3/RVb16/Y+mIxz/+34isWPPjQ1Bv+Xszz7079+Pr+N3y5+GNTJu+Y
e9We1Dz/K8VH9n/8JSM9PKt3yg0z9/7EI72Dwud265O7v7pXLDiomPXTrN+4
7vuf0/t2PLCOP36X/tXy/g/8uuL47be/vpj11PHjbhtfTPwdXPytvdqyUv98
av93HNL57G79Wz2j92L/229p96GxoW8ojuV7WPdX78GH3pj6mwRwcTzOptwR
HpMPLY7teVAfszcabrzmzanJp3YTX4cVf6Yf3ut1/PRXvCXx9O51Qvd6Zu+4
/re7UROPmnh7a+dpXb60m/jUn4/11sTrxNTE78Quvk/tfS/WX7P+RxTHcqzQ
z8V+HNF9v5N7L/e/fIeO8J40qZh6oll/TT7s8wm98/bu5tjhRxZ/NRb8bcXk
hyY/NPXhqNTkgybeNfF+dHGk21pN/OuLYoHfXsz+avZLf+Wa/n/Q1MPJxeSL
pr5o6ssxqePx7tSs/7HF1CNN/L+jmPjXX4z6pFn/dxaTD7nZHx3htHWfj+s9
20/fsSnF9WuE91RNvdeRbtfkJh91PM52TT/QxN/xxQv76TdTXx7rpePLb9Xk
o45ffkGzfu8qju29Ljfrp8lfTf5q4kUTH+8uJp91/DhbNK8npGZ9dSzHjZr4
0uS7Jn80631icZS7mZr11aynpj68p1pfTf3T8eOs1qyf/nH/jx9/UjHpqZmX
dCzHmKYeauL15Or5Nc8/tZj6oSNd1mv6q+b5T6meVxMvOsrROs08l5v1eG8x
8ZSbeU6zPpp+rqm/msc7tVo/TT/VZ8V6avpJ7tju3Zr8fl9q+m+7qZ+a+qnv
iP05rZj40+Svjh9n/OnF9DP9uyj4mvjUrHduXqcV0480+6HpJ5p6oMkvTTzl
ph5rnveMYvJPE2+tPrqLx9zMA5p+rVkvTb6dmZpxRlOPNPGsWT9NPGj6k6a8
vr+Yeql5fk2918SLjnJ6jyZ+Nf1M0y805xfNuD+9mHjS1KfcrIemv2jiS9Nf
NPVVk/+a+DqrWk/NemrWTxMfmvXS9CdNfMxIfXA8gCbfNPGjyT/NemnmR838
0G7qa27WV1OvNP3sA8XkryY+c1PfNPmqyVfNfKDZD018al7PLmbe18SjJl81
661ZP31iBFRu+q+m/mnyXROvM4s5/2v6lY7xY65mPTX9Sn8q1k8zj2vqn2b+
0Kyv5nyjyf9ziuPxZ2nWUzOv5CafNeuliacPFi+NB9CfiOfXnJc0z6upf5r5
TsfyTjm3mHzV34iBTpOfOsrpSk1908SLpt5p1kMz32jy70PFxIt+NB5A0w80
533NPKPZ31nF5FNu5p/cnB81+aVZH0190tQnTf7Mrp5fR7hcpemPmnlKE/+a
+NfU914x9V1343txl47VemjyV9OPND+v5vyl+fk187gmvjT1UxP/mv6vqV+a
/NDUA83rnGLmJU28auJHs3+afqip35p6p+kfmn6uiad2fyfWT5OfmvtNzXlH
s16a+UGTz5p55cPF1BtN/dPU19zEj6afaupvbu7HNPGjWQ9NfdXEl+Z8oFkf
Tb3X5NvcYvJNE0+a9dOsnyaeNOupycfc5Gdu7qM066/JX03+auJPk8+afNas
v2a9NfVLs965mfc0+Z2b1/OKyfd9nrCf6Sea/dLMP5r90cxrmv6rmSc19UGz
/pp+o1l/Tf5r1luz3pr41qy/pp9r1lvTz+ZV65eb9dTUU038a+JfU0819UNz
X6mJZ0090cSzpn5o4ldTTzTrqzkva9Zb058066mpJ5rX+dV6a843+qdRXzTx
qun3mvjVrLdmvXMzz2rqj+Z+WlN/NOdpTbznZr808a9Zf838pYl3zX60m/3S
1BfNfcP5xeyPpv5r8kGzX5r90uyXJl80+6e5v9XMs5r6ozkPaPqDZv5tN/VK
U580+aPJF83+aeYVzX5q6ldu5pl2k28XFLOfmv3LzX5q5mvN+VOTX5r+ockn
Tb/Q1DtNvdOc/zX5lJv909RHTX3UzFO5yU/9pdgfTb7pSJcdmv3R1EvN64XF
zGOa+qjZL/31yCfNfK8ZPzT5lTuWc4lm/zT9S1MPNful2Z92Ux819yma/dGc
JzXnK02+afJLs3/tZv/q/bqomP3R1ENNPmnWX7PemnqnyR9N/mjWv91Px/pr
ziea+wz9TOyH5v01zXlNUx819VAzr+Vmftb0L837axdX+5F7XhQYTX/T3Edp
3j7S1L/czBe5qY+5mUc08aDpd5r7OE085L4yCpLm/q7dzJOafpib/dfkn2Y/
czOfXFIc4Xe4Zl7X7J8m/zTzh+b8o+lnmv3T7Ifm81Oa/dHcT2rySVPvNOdR
zXpr1jc39VGTb5r+pf8R+aV/GPOi5v4kN/PGR4qZNzTzhGY/NPuh2Y/c3O9p
9qfd5Jvm/jY351/N530054Pc3Jfl5rygiY/cxIdmPtXEg/5CLLj+QRRszX20
Zn7JTT4uKKbfafZbc17W7He7mWc0+6mpl7k5P2j2R9NPNfOM5nyQm36qmT81
84ueFl+gmV805wfN/KE5z2nmS818onldWEy+auZLzX5pzmea+qiZF3Oz/pr3
CzT1UtOvNOutmU8066tPi/XVzCOa9c7N/KiZHzX9SzOfaPZDsx/V841bVBzv
Hx7W7piXj8pNPmo+PqfJTx395yQd9eVUzfld8/GOdjPv5ia+NPVex/xwsSb/
c1PfdezfxzX9u92cd3Ts97U6/rjP5Sa+dcTH9TpeRnOTD5p80DHf3qI5P+vo
x7fpCI+7NPWqip+7c9OPdKTPvVX8jFXx890qPtbp2P77cjP/6OgH92v6XRVP
D+Tm/Vgd6bA5N/Nru6nf+zxCPD6iqS+a+pKbeqPpBzri84+54/y4UzNftzva
wUs67tf2aOrZpamZFzQfp9fUL815TMf2HqupZ5p6lpv6pqlvOuJrxvDMvKKj
PM3Rkb7zNf00N/VMR/wsazfza7sj3j6p4zx+tab+ae4nNPWu3cxfmvlLMy/r
WN6bc1Mfq/i7JTf1UUd6rcod89JdVXyu1tTLKh7XVPG4Njf1UjPftzuW835N
fdTx5Q+0m/NkFZ+bNfVPRz/+haYeas6j7Y7f/pimPlbx+4SO/v1kFb/bc1Mv
q/jeoZm3Bzf1Mzfnac3L4tTM7zri/RDNfZfmPK7jvDIxN/cpmvqrmS9zx+dB
jh/c1Ovc1G/N/dyBM/Os5nyqIxxnaObb3My7mnqvmWc19V9Hfiwb3MzDmvrf
bvqDpj/oaN/Xtpt5uN30C02/0MzLVX6sbDfzc7vpH1U+3V7l0ypN/8jN+bbK
r7s1/UTz/laVH2O56S9VfK+r4vu+dtNfqvh+QNM/Bjfvv1X5slnTfzT9psqf
RwZ33Ac+pqO8PjG4med1HHef1Mz3wzP9LHccr3a2m/6mY557vsrPl3JzH1Ll
757cnCeWFNPvNP1Oc1+Sm36n+bxbbs4ng5vzTG76q6afas4zuemP7aZ/avqb
5jyj6V86lufcdtPvNOchzX2Pjnyfr7nvz839kKZ/avqn5j6y3dwH6civq3Nz
X5Sb+6F2c17S9MPc9MfcfD5G0y+r/FqZm7/vkJv3MzT9Lzf3UVU+rNbcN1Xx
v6aK77Wa+6gq3sc0/U/TzzT3S1U8b2g3/U9z31TF+8Yq3jdp+pfmvkhzHtKc
hzT9pYrP7bnpB7m5P6ri8fnc3B9V8ffS4KZfVPG7p4rfcUuL+TyApl8Mz9xn
ac5XmvstzXlKU+8191m5qfe5eb9Gx33AGe2m3mvur3JTzzX1W3O/lZvzTm7q
uebtOx3hsGh4pj+0m/u13JyvcnN+0vSXA2fOZ5p+1G7u9zT9SdOfdOT/9bkj
n7/c7vjfUc19X7u579Oc33Jznms3/a7K91WDm8/Dac6HVf1YnZu/j6Ppj7mj
ftzbbvrpgTP3mZr+rLnf1PRfzf1lVZ82VvVm8/DM+VNz/5mb/l7Vl0c095+a
fl/Vk61VPdnWbu5Hq/qwvcr3nVW+7xrcvB9+4My8oDk/VvVj5LJi+nm7oz4c
1m7mAU3/bzefx8jN/JCb86PmfjU384TmvJibeWN45jzabu5nNfevwzPn3dyc
bzXz0PDM+Tg385bmvKyZnzTnYc38k5t5Jzf3yZrPWw1u7pc185FmntHMM5rP
c+Xm71fl5nzcbuaLdnN+zs3nN3Izn1T15bZ2cx9d1ZtVmnljcDN/tJv5RMf/
/9uadnPfnZvzv+a8r5kn/nvm8yztZt7JzfyTm/v0qn5srOrHJs18027mn3Yz
D1X15+HczEftZl7KzfvFg5t5SnN/r7lf0by/XNWnnZp5KTfzzuBmPtLcp7Sb
eSo3L8tScz8zPPP+t2Ze08xjmvv+3Nz3a+7vczOP5Wb+ys081W4+L6+Zh4Zn
Pt85uHn/IDfvl2vum9rN/KWZv9rN/NRu5qvczFvFI69l7rfazfx24Mw8qJnn
/nNm/tPcj2nef8nNfKh5/0VzfzW4mR9zc/+luf9qN+/XaO67NJ9nyB3/jA5u
3u8ZnuO+/ebczLua94s086rmPi038+vwzDw7uHn/SjPvDs98/qPdvF82uHl/
LTf3h5r7u9z/BJuMhxs=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.50839069665625*^9, 3.5084735385*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"try", " ", "sixth", " ", 
   RowBox[{"method", ":", " ", 
    StyleBox[
     RowBox[{"\:65e0\:540d\:6307", "-", "\:5c0f\:6307"}],
     FontColor->RGBColor[0.5, 0, 0.5]]}]}], "*)"}]], "Input",
 CellChangeTimes->{
  3.508390431125*^9, {3.50839065065625*^9, 3.508390680921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pm6", "=", 
   RowBox[{"pd", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "All", ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.508390789359375*^9, 3.50839079109375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "2", ",", "46"}], "}"}]], "Output",
 CellChangeTimes->{3.508390795671875*^9, 3.508473538578125*^9, 
  3.50847363165625*^9, 3.508540517515625*^9, 3.50871406853125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ddiff", ",", "dsame"}], "}"}], "=", 
   RowBox[{"eucDist", "[", "pm6", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"ns", ",", "nd"}], "}"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Length", "[", "dsame", "]"}], ",", 
     RowBox[{"Length", "[", "ddiff", "]"}]}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "dsame", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mdsame", "=", 
  RowBox[{"Mean", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ddsame", "=", 
  RowBox[{"StandardDeviation", "[", "dsame", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "ddiff", "]"}], "\[IndentingNewLine]", 
 RowBox[{"mddiff", "=", 
  RowBox[{"Mean", "[", "ddiff", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"dddiff", "=", 
  RowBox[{"StandardDeviation", "[", "ddiff", "]"}]}]}], "Input",
 CellChangeTimes->{{3.50839078378125*^9, 3.508390793*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"50", ",", "4900"}], "}"}]], "Output",
 CellChangeTimes->{3.508390797*^9}],

Cell[BoxData["0.23213721579465735`"], "Output",
 CellChangeTimes->{3.508390797*^9}],

Cell[BoxData["13.276011155628039`"], "Output",
 CellChangeTimes->{3.508390797015625*^9}],

Cell[BoxData["1.6540693695821735`"], "Output",
 CellChangeTimes->{3.508390797015625*^9}],

Cell[BoxData["2.4070976457032547`"], "Output",
 CellChangeTimes->{3.50839079703125*^9}],

Cell[BoxData["0.2716397498275299`"], "Output",
 CellChangeTimes->{3.50839079703125*^9}],

Cell[BoxData["29.16556265259476`"], "Output",
 CellChangeTimes->{3.50839079703125*^9}],

Cell[BoxData["7.9113159986660575`"], "Output",
 CellChangeTimes->{3.508390797046875*^9}],

Cell[BoxData["5.501833627442881`"], "Output",
 CellChangeTimes->{3.508390797046875*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dx", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dds", "=", 
     RowBox[{
      RowBox[{"BinCounts", "[", 
       RowBox[{"dsame", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "ns"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ddd", "=", 
     RowBox[{
      RowBox[{"BinCounts", "[", 
       RowBox[{"ddiff", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "20", ",", "dx"}], "}"}]}], "]"}], "/", "nd"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dist", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", "dx"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", 
         RowBox[{
          RowBox[{"Length", "[", "ddd", "]"}], "-", "1"}]}], "}"}]}], "]"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pdds", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"dist", ",", "dds"}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pddd", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"dist", ",", "ddd"}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"p50", "=", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "20"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.25"}], "}"}]}], "}"}]}]}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5083908321875*^9, 3.508390898890625*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdkL1OAlEQhW8wJMaYQBAJIFlBkX9E4AHuhsbGBh/BBFt7bWx8Axt4CBsp
qKhsTKTiCYiJjXQ2FhbIPbsz2TPJZvPtzP3m3C3d3F2PYsaYwf+zfYc1856+
h7O57bta2sl4W+8Bf9qH9Mvl6v7Nfrha2+j8j/Rh+w14Gsz/BfxsF46NH+7F
+R0/7Lu147hvIrUrfOtqT+bh3ydfQhj7kuRLyXnMH5A/TXkOyZchX5b258iX
F4bvSBj5C+TzyHdMeYuUpyh97CuR74T2K8N3Sj5l+MrkOyOfMnwV8inDVyVf
jXzK8NXJpwxfQ+6Pr03yNcnXEsb/b5GvTfnOyacMX4d8HepfRH2PyriPstPn
upRH2elelVG9qO9KGXmVne5LGfn6lE95AxtL7s0=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxV03tI01EUB/CVCBaSlVraS92ac5vuKZGQ3ZMi+yMRkl5MDLFUGD2sGYaS
OonlUEem0tQkh2NRVlRWFj2kDLEnlpVoZpo6+8P+qcAIsex3v/7Cw2+Mw7n7
nHPv7y4q+0h6zmKJRJI09/n3PR9e7ZaR/k4VMwrRx1JKFW0T1UeRj7H6EyZz
b1cpeynEFMtvvJ089PY06j+YkK52Mq79YoNVh6ezrtdh/Qyr9ptOz7C62Csh
l5CmclPrx0QXfu9HjzJsh3YGNrMGIfxpT3q3NTrADS+AQpNNfXKrm+UKsZRY
klo5ltAKP5CWXPVUTaa2wAuiiu7fvXsjGtFvOd15bpd5E+e9lWI/vj6YBvKf
3lIYWuCHkCXz3uOBkgbME0rljtm03S+a4K2iA5EPWb+qCV4Y/bFIlu1yn4cX
TpltBzdnD9bCW0OpPwtvmodd8NbSrOFKxRdPLeZfJ+bc20DFIddMo0V18CLI
Mz1pzumqQR5JT7KUlvH9ZzFPJPH3VYN+UWKde1IKO5fS9OabE/2lOK8z8GTY
rwOejEYXdc6+l1TB20iyFVsvfKivhCcnYXvBDnhyWngfosWce9Fk23H52djr
cngKzFcOL4biewzy4Ro7vBj6frf91KcZOzwl5i+BpxTr3FNRT7N8ytdRBk+N
87DBUxO/30XwYsnu9G73SW04/1h6IIv7OhpUAC+OOny63M/3j8PT0Pp32+ae
k/A0dONS/PhQXiE8LfZzDJ4W51WMuk6sC1yZTvT5fnSU4K+9ODJRwP1wPfw8
zKMX6wLXrsf9t2I+w0Iv1SDuh89rEPsLnO9/zucziuv5fEbi/+d97C+WJ7yW

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  ImageSize->{499.1666666666679, Automatic},
  PlotRange->{{0, 20}, {0, 0.25}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{{3.508390840140625*^9, 3.508390899484375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pdds", ",", "pddd"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.25"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Euclidean Distance\>\"", ",", "\"\<Percentage (%)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Dashed", ",", 
        RowBox[{"Thickness", "[", "0.0005", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dotted", ",", 
        RowBox[{"Thickness", "[", "0.0005", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Innerclass\>\"", ",", " ", "\"\<Interclass\>\""}], "}"}]}], 
   ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"LegendSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.45", ",", "0.2"}], "}"}]}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.35", ",", "0.35"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508390924171875*^9, 3.508390928265625*^9}, 
   3.508391025140625*^9, 3.5083912039375*^9, {3.5083912433125*^9, 
   3.5083912863125*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{
      {Hue[0.67, 0.6, 0.6], Thickness[0.0005], Dashing[{Small, Small}], 
       LineBox[CompressedData["
1:eJxdkL1OAlEQhW8wJMaYQBAJIFlBkX9E4AHuhsbGBh/BBFt7bWx8Axt4CBsp
qKhsTKTiCYiJjXQ2FhbIPbsz2TPJZvPtzP3m3C3d3F2PYsaYwf+zfYc1856+
h7O57bta2sl4W+8Bf9qH9Mvl6v7Nfrha2+j8j/Rh+w14Gsz/BfxsF46NH+7F
+R0/7Lu147hvIrUrfOtqT+bh3ydfQhj7kuRLyXnMH5A/TXkOyZchX5b258iX
F4bvSBj5C+TzyHdMeYuUpyh97CuR74T2K8N3Sj5l+MrkOyOfMnwV8inDVyVf
jXzK8NXJpwxfQ+6Pr03yNcnXEsb/b5GvTfnOyacMX4d8HepfRH2PyriPstPn
upRH2elelVG9qO9KGXmVne5LGfn6lE95AxtL7s0=
        "]]}, 
      {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.0005], 
       Dashing[{0, Small}], LineBox[CompressedData["
1:eJxV03tI01EUB/CVCBaSlVraS92ac5vuKZGQ3ZMi+yMRkl5MDLFUGD2sGYaS
OonlUEem0tQkh2NRVlRWFj2kDLEnlpVoZpo6+8P+qcAIsex3v/7Cw2+Mw7n7
nHPv7y4q+0h6zmKJRJI09/n3PR9e7ZaR/k4VMwrRx1JKFW0T1UeRj7H6EyZz
b1cpeynEFMtvvJ089PY06j+YkK52Mq79YoNVh6ezrtdh/Qyr9ptOz7C62Csh
l5CmclPrx0QXfu9HjzJsh3YGNrMGIfxpT3q3NTrADS+AQpNNfXKrm+UKsZRY
klo5ltAKP5CWXPVUTaa2wAuiiu7fvXsjGtFvOd15bpd5E+e9lWI/vj6YBvKf
3lIYWuCHkCXz3uOBkgbME0rljtm03S+a4K2iA5EPWb+qCV4Y/bFIlu1yn4cX
TpltBzdnD9bCW0OpPwtvmodd8NbSrOFKxRdPLeZfJ+bc20DFIddMo0V18CLI
Mz1pzumqQR5JT7KUlvH9ZzFPJPH3VYN+UWKde1IKO5fS9OabE/2lOK8z8GTY
rwOejEYXdc6+l1TB20iyFVsvfKivhCcnYXvBDnhyWngfosWce9Fk23H52djr
cngKzFcOL4biewzy4Ro7vBj6frf91KcZOzwl5i+BpxTr3FNRT7N8ytdRBk+N
87DBUxO/30XwYsnu9G73SW04/1h6IIv7OhpUAC+OOny63M/3j8PT0Pp32+ae
k/A0dONS/PhQXiE8LfZzDJ4W51WMuk6sC1yZTvT5fnSU4K+9ODJRwP1wPfw8
zKMX6wLXrsf9t2I+w0Iv1SDuh89rEPsLnO9/zucziuv5fEbi/+d97C+WJ7yW

        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameLabel->{
       FormBox["\"Euclidean Distance\"", TraditionalForm], 
       FormBox["\"Percentage (%)\"", TraditionalForm]},
     PlotRange->{{0, 20}, {0, 0.25}},
     PlotRangeClipping->True], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.35, 0.35}, {0.8, 0.55}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.35, 0.35}, {0.8, 0.55}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.0005], 
                 Dashing[{0, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Interclass\"\>", {1.2100000000000002`, 0.58}, {-1, 0},
               Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.67, 0.6, 0.6], Thickness[0.0005], 
                 Dashing[{Small, Small}], LineBox[{{0, 0.5}, {1, 0.5}}]}, {}},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"Innerclass\"\>", {1.2100000000000002`, 1.74}, {-1, 0},
               Automatic, {1, 0}]}}, {}},
          AspectRatio->0.4444444444444445,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.26}, {-0.1, 2.42}}], {0.35, 0.35}, {
         Left, Bottom}, {0.45, 0.2}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->{485.83333333333354`, Automatic},
  PlotRange->All]], "Output",
 CellChangeTimes->{
  3.50839093225*^9, 3.50839102671875*^9, 3.508391207125*^9, {
   3.50839125915625*^9, 3.508391288484375*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pdata", "=", 
   RowBox[{"pm6", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"templ", "=", 
   RowBox[{"pm6", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tg", "=", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"Length", "[", "templ", "]"}]}], "]"}], ",", 
     RowBox[{"Length", "[", "pdata", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"i", "=", "1"}], ";", 
     RowBox[{"k", "=", "1"}], ";", 
     RowBox[{"n", "=", "1"}]}], ",", 
    RowBox[{"i", "\[LessEqual]", 
     RowBox[{"Length", "[", "pdata", "]"}]}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"m", "=", "1"}], ",", 
       RowBox[{"m", "\[LessEqual]", "1"}], ",", 
       RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"tg", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "k"}], "]"}], "]"}], "=", "1"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"n", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"k", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.508391417078125*^9, 3.508391417984375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EER", "[", 
  RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "0.001"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508389728953125*^9, 3.50838973553125*^9}, {
  3.50838979453125*^9, 3.508389799015625*^9}, {3.508391385046875*^9, 
  3.508391387265625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.5119999999998335`", ",", "0.11510204081632654`", ",", "0.12`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.508391407453125*^9, 3.50839146409375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"VF", "[", 
  RowBox[{"tg", ",", 
   RowBox[{"classifyDist1", "[", 
    RowBox[{"pdata", ",", "templ", ",", "2.558"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50838986271875*^9, 3.50838993325*^9}, {
  3.508391472078125*^9, 3.508391526*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output",
 CellChangeTimes->{{3.508391464140625*^9, 3.508391526546875*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"r6", "=", 
   RowBox[{"RocPlot", "[", 
    RowBox[{"pdata", ",", "templ", ",", "tg", ",", "classifyDist1", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "20", ",", "0.1"}], "}"}], ",", "0"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.508390655375*^9, 3.50839065615625*^9}, {
  3.508473357171875*^9, 3.5084733580625*^9}, {3.50854052496875*^9, 
  3.508540530328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.508540532953125*^9}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3H/s1lUVwPGvVFqYaYaJWgkJ+SNTKTS1gi+CKFCIQIS1WYvcbM5qlsu5
2b6zOZrLuRkbjtmc5UZutEZzlsvciM1mNKMfwxbOKMIx0YaujFFkPOf9+d73
vA9nXB+/qH/Ems9eLr48z7nnnnPu/Twy+fNfXnzVuKGhoVmHDw31Xl/664rh
//s19MjyV+hPVV5W/Xm1P9nnC9909tptO+6d+VLff2CPLB3+1iN7Ny8/+VcH
9tDS4S0re//iN8V3TJm3/3+/a/PIkpdt3t8fup/3Mj2yuM/bdkx46K6bHy/m
8/2p+/0Hd++nTXjoiQN75PI+E68/H9hDlw/PnN77N9tSE4+/pn6q93FWby/m
8/4t9W3/vGf9jOlPpY4/fvPOA3tkURePp5v9xAPXbn3g2l3dzzuYLyt+MX59
vM/E95k+Hxa//5X75tVLdl83/u/d+1kwfFwvvEt2d55/ULN+ub+47uj9IX+u
mN/+fPExsSD/6DyvWz+94qarez+h+Ce98Gx9oZj8/lfnS4ePvHLhhk2n70nN
eu0tjj9uwn9SE69RX9LF67/N/mHv46/X7IcXm028h4bx3D6fccMF+99ybtYj
88XDvXd75cLDOs/pM+s1LvVvl5984q7Zbyhmf476om5931jcW439b7GY9R3c
39u/m7esPLzzrMrDfSZ/Rj2jy58jhtkPH+3y5c3F1IPc86NAvaXP/PwLu3wb
X/xdEqQ4wr3hyGLy7a3Fc+IDH1X86V64V+SOn37l24oJ99GNPr/P5KN+Zna8
odTk3zHNJp6a/Bz1eX2eF/F9e3Es1w2aejPq6V38jy3+QSx4u8l3Tb6/o5h8
18/FemrqyYRi9oPurd5NV2vqn2a/HFdM/usI5zb9zUiAd3Y+p8t3/YtY3+OL
f93j2Trezjr9Qq9dbtHUn4nF8dvXTuzy/8w+U09OKP5GlPPcrNeJxaxHbv7v
JxWzPpp+qtlvOsaLO96Vmv2o2W/vLmY9NNv7PanZn+2mf2j248nFf4n6pcfH
hphUzHpNqj5Pbvajpv5MLmb/6csiPzX7MTfx0pGeD+ivxgfQ5LcmP95bzHyo
74z46di+12nyR1PvTilmP5xSxfuUKt652T+52d5Tiuk3mvqgI91u0tTPKdV6
aerF1OKlkfBTh4NDp3Xrob8U8dfEOzfxf18x87RmPXSk112aeqqpR6cWE39N
/DX1SBPP01IT39zEV7MfdHz8HZp8P73Z5LcmnvrbEb8zqvhp5gVN/mrqu6Ye
vr+YeqjJR028ziym/ukZkWCaevCB4ijf92jySX8t9rOmHp5VTP7o78Qb0NQ/
zX49u/iX8Xk1+aPZn5r6rw+Pz39Oauqnpj5r4qUjHOs1+aTZr5r80sw7mno7
rfp8mnzTV0RCa/qfZl7R5Kdmf2leP1hMvmjio6m3mnzVxEMTD0190Hz+DxVT
33S8/Ws1n08zj+l/99Jll+Z1ejH5qakXmnzVfH7NftWcPzT1W/P5NZ9fs9/O
rT6/Zr01+a6ZhzX7U1OPNMdtzTxxXvX5Rz2l+/ya/aGZbzX9QLNfNPmhqW+a
+Gjy/8PF9LfcxENTDzTx0LyeX0z+63j7MzTzh2Y/aPJBMy9r4qGJh6ZeaOKh
qYcXFHMe1ZH+szX7R5M/mv2kiZ8mfjq4KTfx1bxeWEy+afqjJr808dTUG008
c8dvf0STb5r55CPF9FdNfdLMW5r6qyO8qzX7UTP/auKlOS/p0XuHUZOfmnhq
5kt9UuxPHeV/paa/afZv7h9HPPW5Ud808dWcd/XPIp818f5Yavqhph5o5h/N
+U1THzTzkWZ+0V+P9dC8zihmPtbkq2be1FMjvvqcCKimP2j2v2Ze0MxHM4vZ
/5p4ac7nmnqg2f+a/azJT91d1xZzHzFcTD/TvB9Nf9H0F02/y83716yvnhTx
19Q7Tb5r8kFTPzTzhSb/c7OemnlE8zqre53UzSOa+Gn2g2Ze0eS/5nyhWX/N
eUvTvzX1TJPPmvhp8kcz/2jiq+l3mvqsiZ8mfpr807xeVEw+auqlpp5r4qmZ
vzT1VJN/mvzS7HdNfDTzgKY/aOKj6b+a+qrZn5r4aOpHHZ/Zqalvmv2riY8m
/zT9UVMfNfNzbvazpv9r4qk5n2rimZv9qqMcbdHEU1OPNfPYqCd2+3dOMftX
k2+aeGryKzf7WTN/avav5nmHJn6a+OWm3+dmf2vO75r9rNnPmvjmJr65eb24
mH6oibdmf2v6jyZ/cxNvTT/S1ANN/mrir4mnpj5q+o+mHmjmR815XlMfNPHN
TX5r6ocmn+cWc3/SbuqJJv81+a6Jvybemn6Um3qsib+mf2nyX1NPNPmuWR9N
fdGsl6beaOKvib9m/tecTy4ppp9p5n/NfKyJr2be0vR7zfykqSea+31NPmvy
WdO/cpPPmvhozg+a/NTcX2peLy2mPmvyWXOe1uSnpl5o+p+mPmviq6kfmnqh
yU9NPmriq5kfNPmmyTdNfdDkm2Y+0NTTecXMB+1mv+cmP3Nzf6GJr2ae1cwX
mvhq6rGmPmjir78QCaZZj3ZTLzTPzzX3sZrz1tiZeSY3/UGTD5r6k5t80dSn
+cXkg6YfaPabJj8051nN44Dc7EdN/9DsR835R9NfNPOoJn80+aPJH03+aM4D
mvsr/XTkh6Y+atZLsx6a+C+o4q85P2rmI008NftNEz9NPdPET9NP9Gcjfpr4
5f5+xFPTrzX3a7mpl5p+runfuennmvqqqaea9dH0L835Vf885lnNemr2lx79
Ht+oqc+ar+do1lvzdQLN+rebfqjZb5r9pskXTX5o7iM1+ZKb/NHMI5r80Ky/
Zv019Vmz/pr1z83+1PTb3Mw3mvtSzXyjuR/VzDf1+n+imPkmN+upmRdzM+9o
+rNmntSsv+b8r8kHTf3Q3NfqEyI/NP1c87wlN/mhqc+a+VWTP5r80Ky/5j5Q
c3+sfxr1QHOfrGN77srNeVcz7+ZmvRcW019HfUzXXzX5oDkfa/Z7u8kXzfN9
TT5o+m/uSKcVmv6rOe9p1luzvpr+q6kPmvlMc5+hua/X3GfkZt7Skb5bNf1B
M3/lph/kpt9flprzoiYfNPNWu8kXTT7kpn5o5gvNPK+jnS/JTb5o5v/c5I8m
fzT1ITfzmub5qCZ/9FmRL5p80Ky/Zj9r1rd6P0csKmZ9dcybR2nOtzrOJ8dr
5gPN1x81+ZE73u5kTT3R9JN2R7k/U5M/uZk/Mg/1mX6leRyi6V86+vUCTf3S
0b8X6VjfZZr8zB3r/zkd6XCV5j5X0/9yc17RkU/X68inG3PH+eGW3JFPt+uo
J6s059/ckT5rNPOYjvy5V3N/pGP57tf049xRbx6s1v9hTf+u1n9jbua5Kj82
5Y7y85imP1T58EfN+UHH9n5Sx/y8XXOeGDszb2jOI1W+7M0d94X7NC+XN5t5
Njf1TFO/NPVLU6809UpTr3LT3zT1SVOPcsf8ME1Hfp6n6Ye5qU+a/qgJv2a+
1tQjTf3RzN86zh9XaeqPjny5RnM+yx1v5ys68ul6HdvpRk0/1sxzVT7coqPc
3Vrlx+3tZt7X1LN2U990zNtrqvy7u8qn+6p8+VFu5s92Ux8194ua+4vc8eMe
rvJvg+Z5no5++Njgph7m5n4ld+Tvk+1m3tLU0yr/d1T5/GyVz7s181pu/nPE
Kt/3Vvk9bnGzmf80/7mYpj7qOO8cm5vzQG7mRc15Usf8O1lTPzX1U3O/mJuv
f7ab+U4z3+WmnmrmvdzMf5r5Lzf1WFOP2x35vUzHPPAZTb3W1Gsdy3ONZj7U
1GPNfYlmXmw35ynNPJmb+q6572039b/K/9uq/L6jyudVmnqcm/kzd4x39+Wm
fueOcD2Ym3qcm/k1N/W6yueNmvk1N/Pr2Dny+/dVfm/Rj8f8q5l3200919yX
6Ei3ndV+eLbaD7t1nJ+er/J7T5W/+zQvS1JH/o7LzXzbbs77mvO+pv5r6n1u
nsflpv5r5m3NvK2Zt9sd96unau4DNPN2buZtHcfJaZr+oPm6dG76haZfaPqD
5n4zN/2j3fSTdtM/NPO+pn9onr9o7htyM/9r5v92029y0z80/WJw832V3PHP
kWo/3pyb+7+xM8+Dq/16e7s5r7Sb/peb80u1v9dU+/VuzX1NtX/X5qY/5qY/
Vvt3veY8o7nPyU0/1NzvVPt3Y276Ye7Y349q7nc055exM/0zN/fJ1X7fqumX
mn5Z1YPt1X7fWe3nXYOb85Omv1b7d29u+uXSYs4/uTkP5aY/as47mv6m6Ve5
uU9qN+cjTf9rN+ep3PTHdtM/NfdVmud5mvsrTb8cO9NfNc+HNP3y1TPnOU0/
1fRTzXlM0z8192OafnjozPMAzf1bbvpxbs5vOv45ojmfae7nXj/mvNhu+mlV
L1Zp+me7ed6cm+eJuemv7ea+sdr/66r9vr7dPF/RnF8151XNfaLmfFrt943V
fn80N+fLan9uHtz0U83zmGq/b9XcJ7abfju46c9VfdlRPPRyTX8+dKbf5+a8
rbkv1Zy3Neft3Pzy74XkvjQ352nN/KA5X+dmntDME+3m/N1u5hPNeVxzH6uZ
TzT3s+1mPsnNPHLozHySm/O9Zj7R3A9rzv+5Of9r5pGxM/cHuZl3csf5Y65m
HtLMK5p5ZXBzn5Cb++nBzfyk+f6DZn7KzTzVbu7DNffhmvtvzbyTm/mn+nto
RzT3B1V9WVnVk1sHN/PJ4OY+od3cp1f1aFVVj1YPbp6Xtpt5aXAzT7U7vu92
r+a/t9HcZ+Rm3ho7c1+Sm/uTdnO/kpt5Lzfz3+BmXqzq44aqHm6s6uEjVf3b
dOjM8+rczJPtZt7MzfMRzTyqmS/bzTz5+nW0u+25eZ6Tm/sqzTxa1ftnNfdP
7WY+rfrBnqof7MvNr4P9veaDm/sxzXzbbubfdjP/5mbezc18m5v5VjPftpvn
UbmZjzX3c5p5dHBzn3bozPzbbubjdnO/99qZ+VwzD7ebeVkzL7ebefrVM8/z
2s33jcfOzPeDm+8Tar5vr5nvNc8XNfO6Zj7X3F/m/h8J/jmt
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{454.1666666666668, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.508391635625*^9, 3.508473687546875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Tooltip", "[", 
   RowBox[{"r1", ",", "\"\<1\>\""}], "]"}], "*)"}]], "Input",
 CellChangeTimes->{3.5085405431875*^9}],

Cell[BoxData[
 TagBox[
  TooltipBox["",
   "\"1\"",
   TooltipStyle->"TextStyling"],
  Annotation[#, "1", "Tooltip"]& ]], "Input",
 CellChangeTimes->{{3.5085405400625*^9, 3.508540540109375*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"gg", "=", 
    RowBox[{"GraphicsGrid", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r1", ",", "r2", ",", "r3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"r4", ",", "r5", ",", "r6"}], "}"}]}], "}"}], "]"}]}], ";"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.50848371459375*^9, 3.5084837294375*^9}, {
   3.50848400253125*^9, 3.508484009578125*^9}, {3.5085409896875*^9, 
   3.508540996921875*^9}, 3.508542060265625*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.50854206184375*^9, 3.508542062296875*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.508483885984375*^9, 3.508483904859375*^9}, {
   3.50848401475*^9, 3.508484038859375*^9}, 3.5084841443125*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r1", ",", "r2", ",", "r3", ",", "r4", ",", "r5", ",", "r6"}], 
    "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "100"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "5"}], "}"}]}], ",", 
   RowBox[{"Frame", "->", "True"}], ",", 
   RowBox[{"FrameLabel", "->", 
    RowBox[{"{", 
     RowBox[{"\"\<FAR (%)\>\"", ",", "\"\<FRR (%)\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLegend", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<m1\>\"", ",", "\"\<m2\>\"", ",", "\"\<m3\>\"", ",", "\"\<m4\>\"", 
      ",", "\"\<m5\>\"", ",", "\"\<m6\>\""}], "}"}]}], ",", 
   RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
   RowBox[{"LegendSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.2", ",", "0.45"}], "}"}]}], ",", 
   RowBox[{"LegendPosition", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0.55", ",", "0.05"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.508541017875*^9, 3.508541093703125*^9}, {
   3.50854115375*^9, 3.50854117928125*^9}, {3.508541287296875*^9, 
   3.508541327796875*^9}, {3.508541359*^9, 3.508541487734375*^9}, {
   3.50854157028125*^9, 3.5085415880625*^9}, {3.5085417835*^9, 
   3.508541869796875*^9}, 3.508541933890625*^9, 3.50854198578125*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJydm3+o3nUVxx8tNRTbTWfeprYfXtudTXe33V23Oe++u9vutrt599M5E0w0
wQgrLMkEYxhiCBKsYCGLYQgmGGLIQhDDhKIWsixUmMjKlOGPyNCIldme8zqf
8/Z7Hj7cS88/l9d9nuf7fL6fz/mcc96fc75zb/rajltO7XQ6Wz7e6XT/tl/X
NZkXPXLs9ZlPv7Iavqb58mMzHnj/oXedtzU/6+IT/119ivGW5qwbJp89vOAT
fp3xZvXwi/f9+kSf82jT/fTo8KeDv3r00G1HD13kvLw5cM/+nX+/fZ7zkuaN
mU+f/Nd856HmafvApc6DjX39tkXOA83dt3YHuDj48II7V5y2aFnwN87sDvCK
4PPsgiuD/7Bn9qy31l4VfMR4tfOcpnu1R441idcEG74+FvxvLhDM3/XBjEf8
JbuB8WB7e8GG4FGbT7EtxxMbg//8enfCNgVz/xPBv+hO19GJ9PnNwc/aF7YE
2/IfEL908teP7Lk6+ITdn7jPFngy+O21N5+8I/FW+4GtwT+164u/17387G3B
XWs48waxvf2g2MzpxcL9vD9re3D325NrxDadd4rNXh8Vn1yrm+8+Ll7XHf6M
Hel64tn2BfG+gU37Bn4rxh7Fv7f12Onc5/cnZv3F9vnHxdiL2O7nX2L2365g
27+rxNfZgMX2Z6+Y/Sy2/fFH8Y+72+8f4u7d37rwmuBdNkFi215fF9t8fl+M
/abvPy9m/4jNH5y/uz0/i8Ts38Id7P16Mf5CzHyLzX6fEXd325GXxXO60/eB
uLvcm865Ntj2y4Vim8/FYuxfbPaySYw9iO3+vyJmPsU/6Zr/fWJzPz8U23I8
K/5R9/qvirGf4A77f08w9i/eZAMWt1+98aOFe/cwn3t+SfzYe22z0gb8p4gv
zMdf/P2djbm7I8edt3k8env1h/bakuLRxuYJHKTzBr/eqT6O8cbczT1nOI+5
vX/SuXH/8Cnn0eZdm79zG+LbKvefJX6N+PVnOQ9jD/sudB7yv3P8+wt9/871
/w+6/5vnPODzMRCMfc8PvsSuPxjM/inxcE5zARsymHh5eTDj07iIr4uDWd+l
wcTH4fT+smD8/Uh6v8TXfo/3y4NZ/xXB5k9uXxl8k+3HK4Px51cFf9PmT8z9
jQbz+00w9tKk99cEs3/Ev7HfGwvGv4v5PTH+Y23wd8zfi18xf7MumHggZn7X
B5MPiRnPeDDxWkx+JcZ+NwSz/8XEh43p8xvT58X4q03B2GvhPo+/YvKViWCu
L37T8gEx+dNE+v7mYPNXN4hZTzH3L7afW7El2IZ3n5j9J8bfXR38Gds/YvIf
8T/tgmLWZzIY/yL+ufkjMX+3BrfzoT7yj1vF+Dcx/m1rut624Hb+5L8/Lm7n
U2V9xPgDMfMtxh+LyZfEzOf2YOJhYY+vo2LWV8x+EZt7uF9s93dQTL4lxn+K
iW/i79oE7Ai26V0sZr7E+Cux7d87gjv4Y7G560fE5DNiS09eE9t+PnVnMPmN
mP0gJv8UMz4x+YLY9sddYvy/2MztMTH5j9jyxdfEfldpvGLilbidf5bxihmv
2F57xdi/mPGKLd97Tkx8Fpt/P+OaYMYrxh+K7esjYuxVbMt7o5j9KiaeiM0/
PCi29XxU3M5/y/yL2W9iCw/viLHnyEc77fy42I845ccd82e7xegDMfYjtt+7
X0y+Kb7UJkjM/Ynxh2LWS4x+FqM30nhOiFlf5a+Wrp4tTvm426eY9RWbO5oU
p3zc11uc8nGfr5RP3ytG/6TxHRBj32Ib3pPilM93iAdi7EWMfknjPy42f/uO
OOsBM4cPxMy38n/mW2zLN1NMPBLbfp4rJl0V44/FxHMx/mT6+oN48LDrh6w/
dnu8fin0Bp//q+uH7cSfM//mPJH0xrh//j3ndUl/rPV87xQf1xrPd04LJr89
y7lpsD/pD+xzpvOI56tFfwx7/tMfzHguDDa9evecYH6/6I8lnk9eHEx+dEkw
+c78YNuuhxYEs94Lg1nvy4PJJxYFs/8WBxP/lwSjt5YGY8/Dwdj/suBfWb5x
RbC5m9HlwejXojeGPP6vDCafFxedV3iZ/f6q0G/M/2gw+dPqYM4/muByXliY
eLMmmHgsZnxjwfhjMf50zMc36OsvRk+sDWY+xczHumD8WeEBX28x+nZ9MP5a
jH2OB5u5PyRGD4m5nw3B+Dsx+fTGYOxD3NYnRR/rvJPzRjHrWz8Pxf7F7F/x
6WbfOh/Ff4gZvxh9qfNS9K0YexITn4ue6G++YPMj5vNi9tdkMPFJbMv7gJj9
I/0xYeOTfuB+xJyHiPFfYst3z1G+z/wX7rj9izlvE2PvYvIhMfmc2O7vVTH2
LmY/Kb/H/ut6gvkRc79i/F9dT6BvpAcs35m/o/39zXX9QH4gxj+Ks35onyd7
vvZiXT9gH2I7TxgR/8AWIOX3N4vZD0mP7E/XOyTGvsTkb2Lip/JxxifGf6T8
/Xox+0dMPpWud3D6+oD5E7O+YuxdjL9Uvs16i8mn6/oA+xcTL8Tcj5j8Qkz+
J0aPi7kfMfpSTP4sJl9T/sx+FpMv1/UD+ZiY/S7GH4nRd2LO08Tkw0m/7E/j
OSBmfcXMT9I3z4mxz7reQN+KiRdi8uG63kjn/66/xNh7yu8XitmfYovXa1I+
v03M/qjrD+xLTH4r5jxFnOoFPv91fYK+S3rq8enrE/xrnbN+of5UZ+xfnOob
PXqH9a3rHdL3uv7Bn/2f9Y/QI0+6PrjW4/nvnHe26+17t/v5+Rv+/laPZ285
b056ZJ3Ht/edG8/P/xNc6iElzyWfPd3HuTzpkRHPT8o545C/f24w8eC8YPbn
+ZGvYg8X+PuDfl4823nA89GiR0o9e14w6zEQzPnB54Kx9wXB6IHPB5M/qR5C
/FM9hPgylK6negjztyQYf6f6CPOp+ki736D0B4hZX9VLWL8rgrHP5cHomZXB
xJsrg4mfq4LJT64K/pb9vpj9OxqMnlN/A/FK/Q3k72J+X/0O2LOY/GEsmPqt
mPigfgjmR0y+vy6Y+RGjD9Qvgb2L0U/qn8C+xcyvmPxM9RHWR8xf1UPaeiTX
S0p+rXoI+ZWY+RYzXtU/0GNixiNm/lXv+KLZq5j4Jma/qt7R1iNeHz8q5vNX
BxM/xNiT+AUbz2Qw/kCMOxIzPVuDGY/YpvOwmPlRvo++EnMeLiY+Bnfa9Y1O
p90/ctKjdt9+Styub5T8SYy/3t7+/gpxqmcQT+4SE0/F5C9i9oOY+ROTXyj/
Jx8Tp/qF5wti+qvq9Qv8r5j5ELf7WUo+pHwf+0n1hYV1/YG/EXNelfTMQTHr
JW73w/TWK9r9MSVfU35PPi/GnsTkX2LWV4x9TV+f0G8ktul+Rsz61/UI+YiY
/ZHqDbOSfhiu1zO4PzH3V9cv6Fcx/l6MPYnJB8Q2XU8l/fRcvd4xlZ5hPpKe
Oq2uZ1hvMfl3vT6S9Q3xQoy/TnrhTjHzI+b8Q4x9JL31qJj8Oo33UL2eQn5c
r6dkPUO+VK+fZD1DPihO/U1T6plcX8l6hnhZ1zeWj9whttfeVJ9QP9SU9Rb2
Y73eQvwVs1/T/Txf1yfEVzH7e/r1GOy9rkfar+nqj4dDf7TqIZ1dHp9fiP7e
0o9V+q1K/xXvb/L8872od3C9D53XeL7yMR/HSj9fLv1XIz16g/yw9GMN+++f
4zzkv1/qIYN+/lfytNK/e0Ew1/tsMPuh1EPmpH7jOZ5/SW/gP6U38E+Dwayv
+q/Ir6U32K+XBZMvLgrGX0lv4M+L3uj3+1ka3NYb/d7vsiy43Y9V+lfVj8Vf
9WNxniom/1J/VltvlH6tVcGc96sfi/2lfizuR/1XxAMx66/+K+ZPzO+PBTN/
Yu53bfr+dPux+nw/iFn/9cHt/uxy3j0ejD8Xt+sdfV7P2xDc1helX0b6od2P
1dejL8g/pR+It2L8S9Yf9f4r1kd6gfNzsYWv/WL7+oyanuhrvm2/L2b91C/V
rm+U+RCz31Sv4LxQjH4Tczyt+kRbP3g/9dmqV1BfFnO/Yvp7Uj/VQXFbL+R+
qI6vv7jdj+76aERst7tbzHyKOZ+r1yvoL6rXK/ij+gL2I+a8Qsx+EpMPirFP
cdIP3q8uxn7F1HPE+ONUHzkhpv4W+bvrPzH9AOJ2P33plxa3++tL/UlMPirm
/EJM/7c46Qnv9xZTDxKz3uJ2P36pD4nJX8T4V3Gqd3g/nDjVO3z/iJOe8POu
yKebVO9wexEnPdEkPdGkekiT6h3peYBOk+ofTap/NEk/uH8Wc/4r5n7FSS80
qR7SJH2Qni8o9iZGb0+/HoI9iu21V5yeR+iph2S9MFU9JD3P4Ho56ZmX03hf
TfrmuJj+MzH+Tpyej+jRD1P1Y6XnI3r0A/tJzH5K/U576nqC+D/9fq2p6iGs
R70ekvUE8UOMvxGzf6evL3J/11R6g/ORuv7IjP+r10var6n1R5t3J72xK/Vj
7fB4cCz6sYhfb/Y8D1KeP2zXQyZS/WOjx/sSF8eTPlmX6iGNx6+iT1a6vpnh
vDw9LzLiv1f0ybD7j/Odh7x/flbURzi/viiY8el5Ec6L5wbz+xcHk38MBGOf
Ra8Mev40GEx+oecnyd8vC+a8YlEw8XkomL9LgjkfWhrM/A0Ht+sfg66Xij4Z
SP1aA35+viK4zHthziuuDG73aw1Ev1Zh1kfPczJfo8GMb3X6fBOM/YvRB6p3
8H69/tHuzyr1JtU7mF9xux+r9O+IsVc9H4L9i8mX9DxIu/7R778nZr+p3tF+
vrS33sH9iNm/ej4EfyluPx9S+pcmgtvPh/T7+m4Obtc3+r0+KC77vj0/Yuxb
TH4sJt6ov4rzAHG73lGen5H+YPzi3G+FP5AeQQ+K28+/9uoVztvE3F+9v6r9
/EZ5njHVR47W+6ny8xpZr9j83ZL6oe4V0+8uxj7FzI+Y/Ezcft62V59w/3V9
kvuriM9ixpP6tQ7X9Ujqr+rRI6m+0aT6RpP6q5r0PIbvz6Qn9tX1Cee9YvKB
ul5hPpXfp3qHr29dr5AviVO9w5/PEWN/09cn5Ovi3I+V9EpPvSM/z5H7szgf
q/dr8fxD/XkOnncQJ73i+eD0n+8gnxC3n3cu/Supn+xYvf7BK/VTzUh6YXaq
J0jP9NQ/sp7BHlJ9YWd6PuP2ev3DXh/RN/n5kVwPoT5b1zf5eZKsb6bq98r1
EPZL/XmTqeolzHe9XmLxZ269/yvrHewz5fs7Uz5/Y70+wnrU+8Hs9ZF6Cfln
Xe9kfZPrJZxH1fVN7u+aqn9rKj2DfxD/D0Ag9Bg=
      "], {{{}, {}, 
        {Hue[0.67, 0.6, 0.6], 
         LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
          18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
          35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
          52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
          69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
          86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwt0udaDQAAgOETslfIyioj62q6BM9DSOcImRUpskeErIzMjGSvbDKTLSsh
IrISst4ffrxX8H3Rw0JxwbBAIFDCcEYQz0hGMZoExpBIkBBjSWIc45lAMhOZ
xGSmMJVppJBKGtOZQTozySCTWcwmiznMZR7zWcBCFrGYJSwlm2UsJ4cVrGQV
uaxmDWtZx3ry2MBGNrGZfLawlW1sZwc7KWAXu9nDXgrZRxH7OcBBDnGYIxzl
GMc5wUmKOcVpznCWc5znAhe59L/HZa5wlWtc5wal3KSMW9zmDne5x30e8JBy
HvGYJzzlGRU8p5IXvOQVVbzmDdW85R01vOcDtXzkE5/5wlfq+EY93/nBTxr4
xW/+8JeA6cJoRGOaEE5TmtGcFrSkFa1pQ1va0Z4IOtCRTkTSmS50pRvdiaIH
PelFb/oQTQx96Ud/BhDLQAYxmCEM5R8Re3JN
          "]]}, 
        {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0OdaDQAAgOHjUlyAbNlZ2SORJDOyOShkb8nKLiOFZAvZSWYde5VNUURC
xgV4/Xif5/v9NUwIRk9vEAgEQjQSYTSmCU1pRnNa0JJWhNOaNrSlHe3pQEci
6ERnutCVbkTSnR70pBe96UNf+tGfAUQxkGgGMZgYhhDLUOIYRjzDGcFIRjGa
MSQwlnEkMp4JTGQSk5nCVKbxf0aQGcxkFkkkM5s5zCWFecxnAQtZxGKWsJRl
LGcFK1nFalJZQxprWcd6NrCRdDaxmS1sZRvb2UEGmexkF7vZQxZ7ySaHfezn
ALkcJI9DHOYIRznGcU5wknxOcZozFHCWc5znAhe5xGUKuUIRVynmGte5wU1u
cZsSSglxh7vc4z4PeMgjHvOEpzyjjHKe84KXvOI1b3jLO95TQSUf+EgV1Xzi
MzV84Su1fKOO7/zgJ/X84jd/+Ms/sDh0KA==
          "]]}, 
        {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVy1dbiAEAQOGvSGZlhpQys7eMhlH2DGWPkq2ySQjZe1NkZ1Mh8wf4Q0Zl
9Lp4n+fcnIScgsz8kCAIvvFd/OAnv6ijngZ+84e//Ps/hAZBCKE0oSlhNCOc
5rSgJa1oTRsiiCSKtrSjPR3oSCei6UwXuhJDN2KJozvxJNCDnvSiN33oSyL9
6M8ABjKIwQxhKMMYzghGMorRJDGGsYxjPMmkkEoaE5jIJCaTTgZTmMo0pjOD
mcxiNnOYyzzmk8kCFrKILLJZzBKWsozlrGAlq1jNGnLIZS15rGM9G9jIJjaz
ha3kU0Ah29jODnayi93sYS/7KGI/xRzgIIco4TBHOEopxzjOCU5yitOc4Szn
OM8FLnKJy1zhKte4zg1ucosyyrnNHSq4yz3u84CHPOIxlTzhKc94zgte8orX
vKGKamp4yzveU8sHPvKJz3zhK42WiVQl
          "]]}, 
        {Hue[0.6142719099991583, 0.6, 0.6], LineBox[CompressedData["
1:eJwNwwc3kAEAAMAPSZuWkoimlpZSIg3aU0V7aGmhvVQqf6u9tPdSaaPS0iTK
3XuXmF+UUxgSBEG5J0OD4JSnPeNZz3neC170kpct94pXveZ1b3jTW972jne9
530f+NBHPvaJFT71mc+t9IUvfeVr3/jWd1ZZbY3v/eBHa/3kZ7/41W/W+d0f
/vSXv/1jvQ3+tdEm//nfICwIQgw1zBaG29IIW9naNra1ne3tYKRRdrSTne1i
V6PtZndj7GGsPY0z3l4mmGhv+9jXfvZ3gEkOdJCDHeJQkx3mcEc40lGmONox
pjrWcaY53nQznGCmE53kZKeYZbZTneZ0ZzjTWc52jnOd53wXmONCF7nYXPNc
4lKXudwVrnSVq13jWvNd53o3uNFNFrjZLW51m9sttMhid7jTXe52j3vd534P
eNBDlnjYIx611GMe94RlNgPjgGD1
          "]]}, 
        {Hue[0.8503398874989481, 0.6, 0.6], LineBox[CompressedData["
1:eJwNw+dWiAEAANAvRUaUHSllZmVvySj7l0fwADyFUPbKJiU7K2TPyMrIXiFF
skci5N5zbsKsOTNnhwRBUOzc0CBId57zXWCGmS50kYtd4lKXudwVrnSVq81y
jWtd53o3uNFNbnaL2W41x1y3med2d7jTXe52j3vNd5/7PeBBD1ngYY941EKP
edwTnvSUpz3jWc953gtetMhLXrbYK171mte9YYk3veVt71jqXe953wc+9JGP
feJTn/ncMl/40leW+9oKK33jW6t8Z7Xv/eBHP/nZL371m9/9YY0/rfWXv63z
j3/9Z71BWBCE2MBQw2xoI8NtbBOb2swIm9vCSKNsaStb28a2trO90XawozF2
MtY4Oxtvgl3saje728OeJtrL3vaxr/1Msr8DHOggBzvEoQ5zuCMc6ShHO8Zk
x5riOMc7wYmmmuYkJzvFqU5zujP8D16nbcU=
          "]]}}, {
        {Hue[0.67, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 2], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 3], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 4], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 5], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 6], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 7], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 8], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 9], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 10], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 11], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 12], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 13], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 14], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 15], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 16], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 17], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 18], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 19], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 20], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 21], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 22], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 23], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 24], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 25], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 26], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 27], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 28], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 29], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 30], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 31], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 32], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 33], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 34], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 35], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 36], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 37], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 38], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 39], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 40], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 41], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 42], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 43], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 44], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 45], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 46], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 47], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 48], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 49], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 50], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 51], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 52], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 53], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 54], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 55], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 56], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 57], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 58], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 59], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 60], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 61], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 62], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 63], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 64], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 65], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 66], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 67], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 68], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 69], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 70], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 71], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 72], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 73], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 74], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 75], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 76], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 77], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 78], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 79], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 80], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 81], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 82], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 83], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 84], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 85], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 86], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 87], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 88], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 89], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 90], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 91], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 92], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 93], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 94], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 95], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 96], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 97], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 98], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 99], InsetBox[
          StyleBox["\<\"\[FilledCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 100]}, 
        {Hue[0.9060679774997897, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 101], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 102], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 103], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 104], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 105], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 106], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 107], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 108], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 109], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 110], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 111], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 112], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 113], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 114], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 115], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 116], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 117], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 118], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 119], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 120], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 121], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 122], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 123], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 124], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 125], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 126], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 127], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 128], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 129], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 130], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 131], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 132], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 133], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 134], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 135], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 136], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 137], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 138], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 139], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 140], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 141], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 142], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 143], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 144], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 145], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 146], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 147], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 148], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 149], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 150], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 151], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 152], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 153], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 154], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 155], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 156], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 157], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 158], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 159], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 160], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 161], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 162], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 163], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 164], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 165], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 166], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 167], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 168], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 169], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 170], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 171], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 172], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 173], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 174], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 175], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 176], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 177], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 178], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 179], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 180], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 181], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 182], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 183], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 184], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 185], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 186], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 187], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 188], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 189], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 190], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 191], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 192], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 193], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 194], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 195], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 196], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 197], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 198], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 199], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 200], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 201], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 202], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 203], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 204], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 205], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 206], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 207], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 208], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 209], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 210], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 211], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 212], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 213], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 214], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 215], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 216], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 217], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 218], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 219], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 220], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 221], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 222], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 223], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 224], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 225], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 226], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 227], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 228], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 229], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 230], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 231], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 232], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 233], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 234], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 235], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 236], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 237], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 238], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 239], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 240], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 241], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 242], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 243], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 244], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 245], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 246], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 247], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 248], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 249], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 250], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 251], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 252], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 253], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 254], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 255], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 256], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 257], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 258], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 259], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 260], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 261], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 262], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 263], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 264], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 265], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 266], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 267], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 268], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 269], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 270], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 271], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 272], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 273], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 274], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 275], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 276], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 277], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 278], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 279], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 280], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 281], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 282], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 283], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 284], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 285], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 286], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 287], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 288], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 289], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 290], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 291], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 292], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 293], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 294], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 295], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 296], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 297], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 298], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 299], InsetBox[
          StyleBox["\<\"\[FilledSquare]\"\>",
           StripOnInput->False,
           FontSize->5], 300]}, 
        {Hue[0.14213595499957954`, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 301], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 302], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 303], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 304], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 305], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 306], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 307], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 308], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 309], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 310], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 311], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 312], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 313], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 314], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 315], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 316], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 317], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 318], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 319], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 320], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 321], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 322], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 323], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 324], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 325], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 326], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 327], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 328], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 329], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 330], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 331], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 332], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 333], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 334], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 335], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 336], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 337], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 338], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 339], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 340], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 341], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 342], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 343], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 344], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 345], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 346], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 347], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 348], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 349], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 350], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 351], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 352], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 353], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 354], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 355], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 356], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 357], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 358], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 359], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 360], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 361], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 362], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 363], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 364], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 365], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 366], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 367], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 368], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 369], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 370], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 371], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 372], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 373], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 374], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 375], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 376], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 377], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 378], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 379], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 380], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 381], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 382], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 383], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 384], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 385], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 386], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 387], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 388], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 389], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 390], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 391], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 392], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 393], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 394], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 395], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 396], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 397], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 398], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 399], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 400], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 401], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 402], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 403], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 404], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 405], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 406], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 407], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 408], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 409], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 410], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 411], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 412], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 413], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 414], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 415], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 416], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 417], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 418], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 419], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 420], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 421], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 422], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 423], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 424], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 425], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 426], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 427], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 428], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 429], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 430], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 431], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 432], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 433], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 434], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 435], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 436], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 437], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 438], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 439], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 440], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 441], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 442], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 443], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 444], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 445], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 446], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 447], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 448], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 449], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 450], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 451], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 452], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 453], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 454], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 455], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 456], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 457], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 458], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 459], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 460], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 461], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 462], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 463], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 464], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 465], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 466], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 467], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 468], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 469], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 470], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 471], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 472], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 473], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 474], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 475], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 476], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 477], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 478], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 479], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 480], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 481], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 482], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 483], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 484], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 485], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 486], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 487], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 488], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 489], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 490], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 491], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 492], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 493], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 494], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 495], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 496], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 497], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 498], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 499], InsetBox[
          StyleBox["\<\"\[FilledDiamond]\"\>",
           StripOnInput->False,
           FontSize->5], 500]}, 
        {Hue[0.37820393249936934`, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 501], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 502], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 503], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 504], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 505], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 506], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 507], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 508], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 509], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 510], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 511], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 512], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 513], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 514], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 515], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 516], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 517], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 518], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 519], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 520], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 521], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 522], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 523], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 524], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 525], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 526], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 527], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 528], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 529], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 530], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 531], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 532], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 533], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 534], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 535], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 536], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 537], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 538], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 539], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 540], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 541], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 542], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 543], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 544], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 545], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 546], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 547], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 548], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 549], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 550], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 551], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 552], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 553], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 554], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 555], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 556], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 557], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 558], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 559], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 560], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 561], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 562], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 563], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 564], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 565], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 566], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 567], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 568], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 569], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 570], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 571], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 572], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 573], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 574], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 575], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 576], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 577], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 578], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 579], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 580], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 581], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 582], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 583], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 584], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 585], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 586], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 587], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 588], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 589], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 590], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 591], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 592], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 593], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 594], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 595], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 596], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 597], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 598], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 599], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 600], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 601], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 602], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 603], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 604], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 605], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 606], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 607], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 608], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 609], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 610], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 611], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 612], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 613], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 614], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 615], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 616], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 617], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 618], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 619], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 620], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 621], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 622], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 623], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 624], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 625], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 626], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 627], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 628], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 629], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 630], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 631], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 632], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 633], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 634], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 635], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 636], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 637], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 638], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 639], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 640], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 641], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 642], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 643], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 644], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 645], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 646], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 647], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 648], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 649], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 650], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 651], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 652], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 653], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 654], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 655], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 656], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 657], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 658], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 659], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 660], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 661], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 662], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 663], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 664], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 665], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 666], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 667], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 668], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 669], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 670], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 671], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 672], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 673], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 674], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 675], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 676], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 677], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 678], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 679], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 680], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 681], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 682], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 683], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 684], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 685], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 686], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 687], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 688], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 689], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 690], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 691], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 692], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 693], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 694], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 695], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 696], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 697], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 698], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 699], InsetBox[
          StyleBox["\<\"\[FilledUpTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 700]}, 
        {Hue[0.6142719099991583, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 701], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 702], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 703], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 704], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 705], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 706], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 707], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 708], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 709], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 710], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 711], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 712], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 713], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 714], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 715], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 716], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 717], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 718], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 719], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 720], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 721], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 722], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 723], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 724], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 725], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 726], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 727], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 728], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 729], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 730], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 731], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 732], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 733], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 734], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 735], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 736], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 737], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 738], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 739], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 740], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 741], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 742], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 743], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 744], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 745], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 746], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 747], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 748], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 749], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 750], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 751], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 752], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 753], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 754], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 755], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 756], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 757], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 758], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 759], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 760], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 761], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 762], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 763], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 764], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 765], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 766], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 767], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 768], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 769], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 770], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 771], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 772], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 773], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 774], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 775], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 776], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 777], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 778], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 779], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 780], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 781], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 782], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 783], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 784], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 785], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 786], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 787], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 788], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 789], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 790], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 791], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 792], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 793], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 794], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 795], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 796], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 797], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 798], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 799], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 800], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 801], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 802], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 803], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 804], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 805], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 806], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 807], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 808], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 809], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 810], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 811], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 812], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 813], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 814], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 815], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 816], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 817], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 818], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 819], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 820], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 821], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 822], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 823], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 824], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 825], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 826], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 827], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 828], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 829], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 830], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 831], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 832], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 833], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 834], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 835], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 836], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 837], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 838], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 839], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 840], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 841], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 842], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 843], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 844], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 845], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 846], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 847], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 848], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 849], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 850], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 851], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 852], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 853], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 854], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 855], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 856], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 857], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 858], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 859], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 860], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 861], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 862], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 863], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 864], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 865], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 866], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 867], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 868], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 869], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 870], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 871], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 872], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 873], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 874], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 875], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 876], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 877], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 878], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 879], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 880], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 881], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 882], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 883], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 884], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 885], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 886], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 887], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 888], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 889], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 890], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 891], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 892], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 893], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 894], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 895], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 896], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 897], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 898], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 899], InsetBox[
          StyleBox["\<\"\[FilledDownTriangle]\"\>",
           StripOnInput->False,
           FontSize->5], 900]}, 
        {Hue[0.8503398874989481, 0.6, 0.6], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 901], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 902], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 903], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 904], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 905], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 906], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 907], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 908], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 909], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 910], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 911], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 912], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 913], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 914], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 915], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 916], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 917], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 918], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 919], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 920], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 921], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 922], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 923], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 924], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 925], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 926], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 927], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 928], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 929], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 930], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 931], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 932], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 933], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 934], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 935], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 936], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 937], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 938], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 939], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 940], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 941], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 942], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 943], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 944], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 945], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 946], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 947], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 948], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 949], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 950], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 951], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 952], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 953], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 954], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 955], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 956], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 957], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 958], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 959], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 960], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 961], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 962], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 963], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 964], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 965], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 966], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 967], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 968], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 969], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 970], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 971], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 972], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 973], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 974], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 975], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 976], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 977], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 978], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 979], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 980], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 981], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 982], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 983], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 984], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 985], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 986], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 987], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 988], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 989], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 990], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 991], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 992], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 993], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 994], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 995], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 996], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 997], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 998], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 999], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1000], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1001], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1002], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1003], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1004], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1005], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1006], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1007], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1008], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1009], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1010], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1011], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1012], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1013], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1014], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1015], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1016], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1017], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1018], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1019], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1020], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1021], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1022], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1023], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1024], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1025], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1026], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1027], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1028], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1029], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1030], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1031], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1032], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1033], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1034], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1035], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1036], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1037], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1038], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1039], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1040], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1041], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1042], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1043], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1044], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1045], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1046], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1047], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1048], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1049], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1050], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1051], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1052], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1053], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1054], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1055], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1056], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1057], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1058], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1059], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1060], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1061], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1062], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1063], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1064], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1065], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1066], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1067], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1068], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1069], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1070], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1071], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1072], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1073], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1074], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1075], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1076], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1077], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1078], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1079], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1080], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1081], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1082], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1083], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1084], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1085], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1086], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1087], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1088], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1089], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1090], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1091], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1092], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1093], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1094], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1095], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1096], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1097], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1098], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1099], InsetBox[
          StyleBox["\<\"\[EmptyCircle]\"\>",
           StripOnInput->False,
           FontSize->5], 1100]}, {}}}],
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->True,
     FrameLabel->{
       FormBox["\"FAR (%)\"", TraditionalForm], 
       FormBox["\"FRR (%)\"", TraditionalForm]},
     PlotRange->{{0, 100}, {0, 100}},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.55, 0.05}, {0.75, 0.5}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.55, 0.05}, {0.75, 0.5}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[{
                {Hue[0.8503398874989481, 0.6, 0.6], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\<\"\[EmptyCircle]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.8503398874989481, 0.6, 0.6],
                  FrontFaceColor->Hue[0.8503398874989481, 0.6, 0.6],
                  BackFaceColor->Hue[0.8503398874989481, 0.6, 0.6],
                  GraphicsColor->Hue[0.8503398874989481, 0.6, 0.6],
                  FontSize->5,
                  FontColor->Hue[0.8503398874989481, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 0.08}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"m6\"\>", {1.2100000000000002`, 0.58}, {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.6142719099991583, 0.6, 0.6], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\<\"\[FilledDownTriangle]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.6142719099991583, 0.6, 0.6],
                  FrontFaceColor->Hue[0.6142719099991583, 0.6, 0.6],
                  BackFaceColor->Hue[0.6142719099991583, 0.6, 0.6],
                  GraphicsColor->Hue[0.6142719099991583, 0.6, 0.6],
                  FontSize->5,
                  FontColor->Hue[0.6142719099991583, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 1.24}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"m5\"\>", {1.2100000000000002`, 1.74}, {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.37820393249936846`, 0.6, 0.6], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\<\"\[FilledUpTriangle]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  FrontFaceColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  BackFaceColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  GraphicsColor->Hue[0.37820393249936846`, 0.6, 0.6],
                  FontSize->5,
                  
                  FontColor->Hue[
                   0.37820393249936846`, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 2.4}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"m4\"\>", {1.2100000000000002`, 2.9}, {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.1421359549995791, 0.6, 0.6], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\<\"\[FilledDiamond]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.1421359549995791, 0.6, 0.6],
                  FrontFaceColor->Hue[0.1421359549995791, 0.6, 0.6],
                  BackFaceColor->Hue[0.1421359549995791, 0.6, 0.6],
                  GraphicsColor->Hue[0.1421359549995791, 0.6, 0.6],
                  FontSize->5,
                  FontColor->Hue[0.1421359549995791, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 3.56}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"m3\"\>", \
{1.2100000000000002`, 4.0600000000000005`}, {-1, 0}, Automatic, {1, 0}]}, {
             InsetBox[
              GraphicsBox[{
                {Hue[0.9060679774997897, 0.6, 0.6], 
                 LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\<\"\[FilledSquare]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.9060679774997897, 0.6, 0.6],
                  FrontFaceColor->Hue[0.9060679774997897, 0.6, 0.6],
                  BackFaceColor->Hue[0.9060679774997897, 0.6, 0.6],
                  GraphicsColor->Hue[0.9060679774997897, 0.6, 0.6],
                  FontSize->5,
                  FontColor->Hue[0.9060679774997897, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 4.72}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"m2\"\>", {1.2100000000000002`, 5.22}, {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[{
                {Hue[0.67, 0.6, 0.6], LineBox[{{0, 0.5}, {1, 0.5}}]}, InsetBox[
                 StyleBox["\<\"\[FilledCircle]\"\>",
                  StripOnInput->False,
                  LineColor->Hue[0.67, 0.6, 0.6],
                  FrontFaceColor->Hue[0.67, 0.6, 0.6],
                  BackFaceColor->Hue[0.67, 0.6, 0.6],
                  GraphicsColor->Hue[0.67, 0.6, 0.6],
                  FontSize->5,
                  FontColor->Hue[0.67, 0.6, 0.6]], {0.5, 0.5}]},
               PlotRange->{{0, 1}, {0, 1}}], {0.08, 5.88}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"m1\"\>", {1.2100000000000002`, 6.38}, {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->2.25,
          FormatType->TraditionalForm,
          
          PlotRange->{{-0.1, 3.26}, {-0.1, 
           7.059999999999999}}], {0.55, 0.05}, {
         Left, Bottom}, {0.2, 0.45}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->{454.9999999999999, Automatic},
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.508541034*^9, 3.508541096265625*^9}, {
   3.508541159421875*^9, 3.50854118084375*^9}, {3.50854133859375*^9, 
   3.508541491171875*^9}, {3.508541573015625*^9, 3.508541591078125*^9}, {
   3.508541813296875*^9, 3.50854187728125*^9}, 3.50854193771875*^9, 
   3.508541989265625*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQtYldeV6BrOATRP+5rmtuk0M31M7sy983V673R67/2YWGMtsdZQImNE
jQSDiERARDGgiICAgHB4Hg4HARFBFMUnGiSomGgeVhOLmocda6xjqrFWrW1M
bM7da7/+/f/n/8/Lk3bmftdPzvn32o+19v73Wnuttdfe5yfP5sxPWfhsTtrc
Zx/5UfazWfPT5i5+ZFJmNgHZ/gIg4m8A/iLhEcBnD4D48JD/7OOb+IHg/8cA
j9BnG1wezAb3KAXBWA7zjLqBAGnqd0qdr4v8y4PgHrxMU/fKOoMweJm1c1Op
Y6PPdiBo5L/swcsRsvJlLSt7EC4zSikKWSPbDW6SiKCJKEkuJZP+c8OoxxMh
KKFNUhAw7NG6XmrVsinFWr1RgoaRoPbAzvPZoHh4f8ToDVI8mGLt3ENxZfPR
Ed2TuBEHI9euDGY2R8vIvY9VczPYqDubD6wG05qmeYFR+wBFNSgp0TVhSi1v
I9JkWtj5wMqpoOSJqRBhQsoNL1IjdfnGuur8YO9/jIbHSDJrKMqEXNaFKDmY
l+Wc002dQChVpjFtysbz1Kkg2ongaHWzXJvpkXzG6AZPzhJB4ChLax0LZTwF
ldoUkBORUxnt9frZILFe2gW/KrNV8ql8725aVzCbnOHKNPM3VSPl7KJdFkNj
syBRpJHf7CrzcP7XRlNhosFRlZlsAbF/lH5Uec/JzLfJTpDO8yKW1PL5g+lI
qwFV3r2UIpzJNFzZPmStTTfVbPQzWpFIKi3qBNAzm41/qvWkIFDkiLpmiH6q
a8Z/lPXuLgHfFfNSrkv0FUzjb1EvGDThIFlEgT1FoWMM64RXuZ8KjErbZIAj
zAmJ5+DLyruXy6xX6alBlbYAf42NzD/qZBzvtjapxQjpeztKuPCyVRWI5zPL
eyX1Lvuk5HoDl2ebPGv14kQ12ichLPxWYwM3zvvdWVBnAX/YMHQG+c9FTQLP
1ikvgnXdo2aL1lQTCRChcjLHZF13jBc1sq/WaJ8UVa26bl31J0ondSOqVrFr
Vaxb+qp+UI0N8vS/ckk2OqjJXFFUtKpW1UZF02/VfP7sq6qREiQa0z6qsukZ
zbHyFYG/E1/UWo2mDpVdZvugILjRVC2CgEZTUWZDGE1caUelFgNS6/A3mkKA
ZQf27v9so6koZ77oe1Lp1+Co6Uj6fgtc+LmlHTXq7y1ITlcUL1UH9FH1MxtN
C/Gpzk0p4n3IvzjeHGpygyqN/uSeTXI0piJ8UxVnKSp1FP5JRaV+4ZNqMFNU
7iP43FL0UWXETMJr1Zjico9kTtMVXCsex+mTiq98PZaEycVbt+ZrPGNR7SfK
VBLqdYRsyrSKFZwv4D61wkjQm32qru1VJUClUGhGastSNTDomUIlDEyBtJ7K
QeqD/nXp/2Zenxbh5szfm00AjWNo0RuGoub8ZlbUQgJRSw/Lwev48c3AK4GN
uw1Z1hcDhH3hLureDSzceFl7RJpc6KHwmK4FEOP6V4gZGIDjJxzseWsh+U7w
hnuVMYWxdk3LmLSp4lKfi9OgOTWJPTvjxDdru3ESuCoSyJzH0l8yllG+eVtY
3jHVG65/1ugmcNZ2pGkdljdWa3vuMihOzYCYmkKoiy+HuoQCKE4upc8R5LMY
7qdtF2cuJ3/F4JxE8lPzoXhWJThjK1idePI8sZyWrptaQeClhMMx9TDUxVWD
c3wdFE9pgLoJtdAcUw/Fk+oIrJa2izDn+HryXcfza+WzK8ZBn53jHbxMrfJd
S9sVdfhzBE1Ea01PaIDilDRwVcWAq2gWaTKbdMsVs4gQ2LPjEzm17jGZbn/z
/xkzqPZwlXqHwid2JIGTTLOOC5j/DnTQZ/ad7gX3LmMCo+1alfFuU4W/AwXk
eyr5S03NhvUxaZCKz45J4pu2neogMyQjBTJcCRG08JfUIrpv2hQWrzKD655p
0yqctR1pWoflfZm1nbQUKglfTiV8WU94rJ7wZSnhy8a4MpIuhvq4VbTtUsKX
pZwvSwhfVs5gfEnrcL6k5SVf1jO+pDwYKl/Wcr6svSu+nFoDS1fjqKfr+HLT
bs0HEQBfWizIgfLlD+5i3v+9Cezv7pq3noJtAw5I2rUKTo/0wGmeJ57xe7cJ
3FjGCmZVxqxNFY7Puw52QXVC8UO3rt6g6QNDMVDcFAdD+8i3eyoUD52W9Tu7
p0J2t4OV4XkHCKy4jaQJfDev7+JpWo58Yz1RltenY2SE69Ju/bPA68orI7ou
LiN22gY+uWJWQsmcmi/QhE0BO+Av6WcU+SyEQlwwlhXDYzEuGB/TD8NXPA8E
MBfN1Xizufi0CWxGgOX43HFWHXbP335qkKa+wUiIOzdysv/FvDZR9pEb1y+d
63YnPGTSzP0MdmBXRt/4i8cv0NRfclhGya7xx09fpKmvcnRrqw7P37H9FE19
znowLPTuSJMa9PNvWcalJzfMe+jqrWtqb7An2CNRIe7ceyP9L27Pe5RVOded
0PbIjUvXVcrPJWR2P3Lp8g2V8ks/fXLDQ1ev3vJH+T+ZZH3KYDDcz5Uo1xKu
RNl4msFt9MmuwCicgaMN4ARdVTt9esBY1fu7uJDP1UKii63hzxUR9OEr+Aiu
tOUcXGP4Lid/ZaIK/y6DysQqi/LVhrIy38Y4h3xWySIMZleKVUDllHo7Zyjy
KJkMFw/+HSFbqpXZNlEltlapgn/1UBnjiJCI1Oxau2VLNiia5oTxiS6IIX9f
pJ/kbUxHrsa/FvrNuJx92+jTWB3M6puVtUsYh0fQh0ivKplFh011L7/TbwXa
PGwOdCx89Py1X2npgTr2PfIOqyPgmFafjXlqWm0jENjAGvpdPC+dpSsXgys+
nSvZWd7Pq5dC2aR6KJuTDK4Z5VA21QkJmWQuTymFhEQnlMVVMFg60W0mNkJC
9gpWflapVm861mvkZRuhhOYX8nLsu0TJ13+rOIhuNLEeVsc6wbGgDVYT/Wd1
egfRk+rBkTsIyxPqoX4Cea7YDQ7SpnPObgJrpDDnnM0MltgFDlLPsaoLmone
s/zwdRgpaiM6mBOmJLA6DtL+8t4eoujo28D+rZZtMFyrCZ2OLFKW5E0h5Ryr
+sBBaI2AKWS2joHlm3fTJ5zFywfegOXke4r2zIpFmhazUYhd5uH0j5nKJ2iU
boLS5+WHoUnMX5tuWkebwCIUJnjMCFs+Clf4JA5J5K6g6nwWkX1z93XwPDMz
wcqUMMsLyNSwgL0DzeS7cu48pvOX6ed565wi3ZxfmuIi+nQ9VXLXTMZvJ8Qk
OKCBvOMYMudZHsIaoY7CRPlG/u2ANbFqulHW0X8b873LxZA5WUfmd3Esh5G5
WzxFg9H8CVpdSg/SNYGXmcTzeT3U9WMS+8E5jej2k0T7jbq29G00Km2Y46Jt
E1ofoiNhh/ETdaKTzapIMUFVYUtE9Z94ZtqomjK9IxmOkm/hpjQo1gwcaaqL
s7wJurxA9Xcrnb4lT6zuRANY28aft8A7w73y+UiNKLOWfzealBN5wyblxbfL
Am7Mb/IDp3jZSh1NUWpkqMVdoOkKLpkfodR70yG6IlQN1pamMLjUdu1ezako
huECH+kvCX379AifR25lTnWo5oFSpsPw3cq/W0QbTMDea9IkaeqIsRnWfEiK
g62m7khH1uaTe2jqr9lUHXPnk9uXNjifXDC683j7wdLBMazoo+cvXjszM6eX
K7z0c+9Ajiv2/VfP0NRM/IwobG879o/B0TLAtHk4vWkEjt26XdjWdwz/oGxF
H5T1HbPRRKRIqlkQQVP3qXlqvtVzhN8mv07TC1qJap1TRtSYHJjX2gOJzSIt
VO9ESMgSaf3z0oQMSMkU6Rm6vNQZ1ZBaw9sQ7eWsgTmkztIa4f79Ms/DtrKh
KL4aimOywUX/FkGxTC+C+nQXFJB0tlKmWFdecGodOPkzzucyxltfURR5Ih7S
iuVz5bwKKF4Wo8CEVl+mQ6ISg89FXgQswm/hw3FPzBtz5/YnysT4Pwp/bIb8
gj7+vMHiudU8v/4YtJf1KQwTQB2zfN6OdT1fMH2eSsuU+O7vvPfuhxAkgzD2
jAbP1VGqtsVm95c1b3oN2tbvgekkPb3yFT5tc3Qw5Znm+kgHWs86b1UDUx9X
tV+KKy6HjLVrWLpgCZvmK0qINk/SK1P0z8Vp4JpYBtPM8vhzQvJCiHGsYO3l
FdHvuKl54BK7KCUrWV72YtoWrYP5OPN0acIqaS6Ka4KA6fJXgGt8BUtPIbN8
fBV/JubxVCtLJZdpehWESwi9FLY0A1yzC/XWC7FmXBPWsPbiKjWcAr8K8+aY
3V3Sy8HlNDpMLsB6VT230GxsmooUrdfnp2+FeYqqZNcKWrZAlKzpe2gt1Tow
mgSPUfvB2/pV25+1T+pZ3wmOH3bTT3QMXYfhcm62EItp+KpHSffTtL5MPziK
1PzrhvLWZfX1VDxbTNu0UQgR4YmN0PXeKaV8N+Q7UiBltkjXweRZ4tkBCSnZ
RNyb52nP9TB5nsDxIE0vnYgbFymQMFsrM2e69rx0otoupvOgPh/fHEK+Rj4b
DOVXQA1q75hOaICmCY38uRaaYnMVC8ahs2CakE8KZsHSOY0MRuheM8VpsGrq
KIzRb9PhjuAavqDZwAcjpz2fAR8oZkMQfEAMhaYw8IFibwTJB2xdsMWNvHGu
P6/6RZr6Fv18AKq2Loei17qtjIeeocJOeLG7ymg0+LdLLEwZL/A4Cn4IrkuV
fbuivquqvHDKrdVUkJp27XnoNFxAb72ENck2iB7+Pyia/60s16qObPXcYZ7P
1XS/+ra/Nk3VfX9tGc0Clqej5Yrnu35mCM1h8tGGfu4TyS/0jbt56zafFzb0
Dp5I7ls65vadj0UkvW5TgLvbv/Phu5dP9CVvVLX9h2797ioaBjTFN8a+f2r0
gwOZGbvG3L59B+ZLCr5pPWl3MdiY2x/fwW2E74++9wF8m8EOZOxaNf74xVN8
QrFyRE881813lbhjnxC7ixB9ViWu5siBuqyTxzbT1HgGG3fz5u0Tc5P7Hrl0
6QakB8dbIoYZjZLagZNIKkTQTxskLeiEpJJdCixKhVEIT9OtEsKOapW1inJc
Pr0ZEpPWwhJFgUZYPBH1SzSxt2SGC+KTmqFcboTeg8WuzSQwQ1UKw+q8PCse
DQ16rLxYI2LhTY6TcBOKKLxc18ZaXbpBQyWoxWbKFatgpUSVRTtp1ul4Q50l
RjSzqqBTmjNl0DrRAapFgvVa1PxJ5dCqpH3lGdtqnbSGrNUJup0V9O7FFK9S
0jNgznKRvwqKE8SaJdqt1uOYIjwRDfy7BbYktZg/Z/Th7hvs0sOUtFkbDUGU
1bZ/1hF9tiOuWqZblxOR2zj3wK7eDNjiJM8YdeBMQv4fd/ujm2zD8O8VMdcN
s1J3oSiAzKRO6bpg322Yp8ADSM8KoqwXXmOZVmjYfQ6eD04CiEBNtLpS0Kee
uxsi6K6nDY4fPQxpBJbW8y6HRaswCvEu80WvMlsV66Or/ijs7+6BRMVa2ejY
DckkncjTaC1gfnL1YdgoGO4e2Oh8nVTdra/KYcnG4tGwTsGqFkMsrMx/QXjW
/h2ve1PE4Rt1bezUpdcJ+0Whdv+OnUiCtHemS1zptJdmvU6u3qark1iwTYdn
YNtO6EKbjfJbEbTG74STvTugnzy7YnKpPdeq5HdkdUGHkm6JKVTy+nR52FY/
7Qdrq9/xKpzsWsGi4dBmTV4OxUuToXhWLnRWL4eYmlySR9SVqYuZTZq/ktOw
iNJB66/rJPRoONfNPkx31geW74AB9xm4OLwDutIY7OLwAd0zyWdlS46pMJnW
2tDqqbAB92GTsnugLYHvUswitGfEsx2KxWtgQ8pcbccC4VVMBtjoE/ns3ArX
OaewvfWx3op42mE4ePwElHop5lE0r0BXdgDTUrk2ZuuqDhiqHtaq2jjWixSr
ZRWmdAepE0yhn49Sm7J3pbCVtnE708z29Ib5s0/RfqxX7LT6o2odZhOh3WZu
1/VD/UTO5m5iK133qor2k4quXppYebDKD1osx+wv83YRrif9pC69iraRpyN3
+OpZGIkxmqasnLGbWrqH0K220wWLp6t4jxKxobFyWzrGHSEeTSy0KfmbOoZh
k5J2Kyy6qeMtXR62NaKIBez31Vs7YQ0RCxg/iPFDlUQsVE5dQfLegQIiFioT
CmnZTNwYTC7SiQU6blf2E3oKDfR6YKRxGEaGr5N8Qt9yBvNceUv3TPOxbMd5
HUyktTa0eipsZPi0adnutFIvsdDReg6GVhd7iYUtO3OkWOg/cUWyiyoWWryY
TxMVOt5WjGrFNDezub2rHjZUHdWqanb2ej9VQhULNjSz0Nyi4UVsZ8iW9PbA
a+0HS3sUhSKJWDK3YGuCUAOHdVax2Fm6boBdN7Wc/eeRtvbmDJRCT4VDwl8m
BvrPZLlmeNkEn5EGc8vd5Sc/kP6YteHyW/Zwl1Bhtb1CfdktcBy9Bjzm8AKP
JSTpr3DVNX9Bl95i91hY7TprPoC0iUfBZ9rjv0yQquuPNRt7b86aAapq8hn5
6LXzvyaGfRXdf/mJtLHvoKHx/Q9GLxHVj83cgbcPtJcebKKp74pyn9w+0deZ
/Oi1q+eFzZ61ZfPJmvq6IzTVGByZzIH3ORY8R7e6SqHq8Fuwar1IL4ZVQ0ey
eg8fgaxcsX1GYV7pCFrqe+Ao74Ks9dr23ByHaCsDcolthttrLJ0OaXnrIK1V
K4vbbCWZ66GkpxtyazR4WtZ6pdwM1iZ9zoDqwUHYf7CbLDhs606Fr1TaWLm+
W5dOcevxanWzwP3uKXD3inQupiOoX8RuDk4yguH4xaNeMH3amK9P53Yrefu3
s7koKcyGosGRrM0HR6CowwQme5YKCetU63kDdPbth43tm2FlkYCVQF7jnoaN
7XtgZYmAlUJ5G0k71bptUN6iT683tJOb2QkFzdobSG1XaFu/yUi/QnsajE9A
XnNCapuhjNKX1G17TOr0QOvwRdv4E0ThtMOJbQOcbXs18D8YwRR6YCMRRhsP
wdHuPilxGptRSLXDHhRU9WshDXdel5VDXf9+Bmtrzzr0EnmuZ9HHZnWwLVqv
uR0OdWxU06yuUk7Wdy7bsqO3zEhnBCX0Hj24w+JZFI+2Lj58EViZB4yYTEdI
g/WgOY8exqZQ5Ms48Py8gymHRT0f/2B+DUzOL2Xp3NJrkxfVw+QMHgOKe47V
RcZ0BC30PQken5kL4iCXK2UVayqnCEpQLxTprBpWduESrSwxXaciLLkGSsTW
5YoSBluYrZUTeU1J12bWzIPEmgXMJSbgDgYvF2lSpzx/gT5dOktrD/VKkde5
BL2skLFlnkhTtytRkBQQmMEiKOzLKszYlL+07jleKF2pvOtN84AMdU0GWW4m
180RMAqZXFMAE0W54jIYn5XGLHFSJ3FJCTROrILS+GpYQ9RuZn1XQfH4Wiig
51yW8aEuhfrYGpiTKqx40s6EWnDMymbp0jwonbqWlKnQtzOhGmI1elTaYKJK
f+kyiEVaRX5xGdMz76Xkqt3RdSW+VGuepKWqG9sDaRnUs0W9W9Ok3qrLg8yM
LUpeNM0rKYthWjrV1JfC9JgayC2KwcMLzHiv1PKlQV+hwSLoZ6QOhu0UFFFo
FW2pKJOmZX55McxVNHVGoiRP7o6ZbsAZCgdVhsDjvMqpZYjun/2G3GMLSUcZ
pxi8Lih6eYcPu94B+T/3Sotr2fTbwAlQkKrasX3CrmU7o/+VFktx4NG0PIOV
z46pabu9HbwcmqBp9EibFtN6lpusrE7Byww+Io66paL5ftaQZnGtBanCPWBs
U4uF1a6u8g1jQ/BlCDwG1zp+d925O5AubUCmCTZKHN81aQPNTa4xpqKhNwBO
wvPuU7egb3YrDO/4gJZpjalgZZIboXgumzQjHa+wtk6iuXyGtFPB5AW2kzMA
Lw6fgFaSpri4+e3djnkM8nqF/phSsRHMjyemuqT8IOQ2Kt3Rd2VUNk+qgGoq
iznv0dm9xrwLSl40zfvlieUaX2fU0JzpGQlcftiJkp0i87fsXBDBRYijIN5L
hKiwZtIUNiPyenbmyLwaXd5Y6kjQ+RIlyZrjwFqeGAoHVcbLA6F5K8z27EOS
J9FomkFcdS5Mac2me7EIFTvojHuirAKA2bYt26N/6+bvj26f74DX9riVPXrL
qnbukrEKLVaf7b6b8h8p4IcKmy7bZgLz0wzLfsBnZzZvdsKM5D5deEDHizSf
YfzvXtVpBEBxtrS936gVO2e7NHdGh3A/tMLOK+YuDmxnemqVDvaz+kZd2qwd
swGV/oDi5dBxRYzM51m+wVeg64+hL7JNfR1xParHDPwPph6Lfe2Eb7tqdXk7
d8Zo4Rq9Xdx+aaR1LqjOmF5hv3jXkfbKztOybZn2eHTl1PomXhSx5lo6Z46Y
FI/26cthZe4PyafjDEVQ2NpLmw9uWbGhu6z5tW7ywoW/5hMMvR5/8fh73Pto
xwOM7WWlB/cuyRl49Pz5ayz8xlZzpO5Q1snNx2lqIoONv/j+cbqvi6n3g6OK
Xdhrx5CjncvW7j2X0J2Oxx04YejqRJcnTXEnFJ4JPTN7Zm/S3oG3xYEKUuYU
hparVOGu8pnetpkYZQIXgqPqy/TzQRqsMXL5hkUYeA+L56bm+0LIPiCODTH1
SIRa9JXtKzzWtg/6fMIiCayLppl6tAjL8GuIVT7agrHEURgUT8CaEKIhxvea
g+0U/M8E3MNlw3pozdgGrUnCJylkiJvD3RbpJkij5ddB3iyrMmZ16uVzY0pv
+ZHml0nnj8Kxso0cvhFeajsaKEyX7k3tRWcjPMwlO+Xm/m2Fx15pwz94qZOk
O8siaMImkjTFYPepMLWK1TOrNs5fMavnvQNbc5LeHh34lZ8JSXPYhsc4n3Ha
8rmsGviJzXE3b/9OnYryBpKcnpBmIu4p3ctXZ6eqyUzfAw1kakXSCRYpFWg1
7x4fefRsB3wD2tsGwb1g0NFW9zK0TGmClsTNsICXLY5xEgusC2pTOyi8JX7j
QTrBtDSZcIQTySSmZclf8YQ2qNWXUep0yvQCMjHrSD1K05R26M47gLOCTLHP
Q9+CvWzy1fdDH4Efa9sbAGyHLn1wz+Wv8nnp8VyB0W7FuHVmww5nDFNOo0VS
yc6DV16phz1OxXY2lqlW8qq9muZ5dn1edYxPMLHa3RVyG/68nIg+wu/YHL1P
MUQ7fcQ9d8EkYlU6zvxKu51ZGJNsrh16i53iUCWoiNEdUeYoMzD1c5Rf2ouO
PTqzJlto2OJGaTNz4B4feYxmvCvgPBxad47oyb3w4euHqYG2Xp2vWN6wb6rf
R0XtX5mvMw4x2kzraPup69X5Sg3F61JxM+JBGv3DThvLPMy7f10x2NBywrSY
rCKt5lN9VZaJ9CqDW7oib4tipenbtuvyyLNPsH5zOMgVnl/f8J13f/nh0fkF
26n5xG8i7897sRK6dlcoRos+pJXVjUYF5Nz0hG46124eO6hTzqLMNWDvBZ2C
7ZzcwQXNXio/tZX1Mco+dj838CW6H/b1W+/qGussjqlT88Sk8reJG8jm8gVx
rSAN94XOWvIWB9+Sppiqxkt1fOi0+MkAi2yrZ2HB+Slm9fzvwc2hLwl58/Ed
nEM4l8QcQu16WdeJfs5O3sosu1PFjhsTGFGMmjZq3FxJn39q+0nn4aphmooT
1feVoubA0OOnjxtifJCLGsSyrh0nVNLiRs69Tqe9AkOj4NKGJwvG3b75e34a
1I6GABoE6CjGg2cMmw33eXG/l6pinNzvfPjrd3FvVyP3weDI5QdQqQ6+670P
cISl5NZuR8mHhK351OFh56ylrgpdC9qiKfghwkrDfE7uMMSxmsXF1hM2csPC
CU1vbUza6CdmlqYjaKGxfpplVYMvG6mDE6WXXkPzOO3aGDZ7t+/SQmudSepz
BE1EeWfVxaPlRkd7XHDv5vNCjHHFlB/eE69A3uCxPuuRSzcuR5q8maGRq9F8
OSVLEA1hQb/pgPOUV0TixePHCGyILH3MVqHLZuoIjB6/4DOCUY1yZG2YtauH
RdDUWNM2zMvadfDhHR88znurU/dqYqSq5lDAbQ5i0ShqnJrXPcwUsRBYR7we
TQdrA/fRi8JNdvvOKMS7EqD85LtynTLoUsq7oRMQ+2amzjCV4hj3Ozdq6g+n
xCqMTA01C0xVEarOWNM2zMvajXDxbgyqSbCaCckLhWu+oK0X1554rp3qHPyd
9BQOOaB9VznVOfgaknVy88GaI3XbOZezle31olafq7p+OUYxpviixvhbqcUQ
B7LIB1/WboRP5FT1u8i4bunyvapHmq/emAryWg3+HjCKiZ6fYVxBP3HNpp4x
j/YevvPhu79CnziNcBpjsuIxZrHh4ohrOT26lG61Cv5VCLSKWwm0Za8U6k+9
DnnrxHmL/XBi2w7+3AVb2RF9dsPEfXC0dbNc+k6goJJFdyjVdkB38sZHr53/
De/i0bT52/E0Fk39kA8SHfbBt3DdgEj6GQUn+qnPBVMUwtPULUiqKNnMVYhx
LQwmviMo+F6rltRn9J/gtWy6n+4K7sV/VbttTqxTw29AQnceHGz/BS2xK7Ud
WmM72IKc6uQx9ixotz2uUclrh87EDuiM7+LpFl0ermZj2AskNsIP5aQy+AKI
RdzfmyGW6V29qdBTq2TXJkJXrWagkyQpTYtIW57DeFW72FGvTcCa5i2R1Wat
ktWUra02QY4qW20e1ok1seeYdWgP1B1xoxymXuMj5VuUcOP9sEkZ2ZEjw4ZQ
ZNU8NeZd51yHaihOVcp1k0zkOxHWQm20tmptJlasXWdfErgYVzMDmKR9rRSP
hDSkOgmFf7jVEt+bTa9ku9DbxTl3SBche/bqDeiN16Jzg4jujRIL1O07OKT0
aokfcdidT25DVx3p1Z4RLhj9GG82XbbYERIwnWgfG5idh6m/9jOQNOfzUmjy
pQOjGjF2CMU1um3wNKpYenV3znxecmssy3Ue3l81/9Sb2zUB/rhE48Mrxl7g
GN29luQPl/mnh86+UvZa8yvLTnS9wUkg5t4rxNzbolSlB2HxJdDUj8Sq8++j
R7dvnK8RMym4eXUf/cSLOD/U2VDTZfBrCiSJYNfi1Xxu9DNLhDORqil2TGdx
v+N4nnrnyrTZfbgiwv9SJ0swrnm7gIkQYdqHHwXX4/tFv4Wob6tlN9NhKF5N
JbS9lEeDO4uz67/z7ofnYGDhehTbUn/Ub8h8jvezVPUOph2m6u4/W4l3Z57e
1Ztn4uptU1y9RMa3uaUTNpTXLDvNpfCkhVrs0OzuUxyeAa2O81SBaZ/UAIcG
f2PW6YFt73HjI+7wyDlD4JjerfrPfqVsIL5DvVcvlN4zt8i9VFiOb02kzoGp
a3NxI08KUe24QjsVipwR/9D6+BJ5kRBjljHYb1Tr+vPzXqRxpAbfHZvftqfP
nhmCHW4mqgLybukFJC0QG0pP7bgcnJnZuwiPvqObhHcGN0RxY1SRv1SXxWh9
PkS0uvBjYgdR5P8LK4ruOuQ86raj+KaHRJ3wLYlNVJtYUG7fubThSfe42zc/
EsNvYvFE4mKEZwKQQvSS0bP3/Dx+z9DuQjrucgBDIZEsFMc2gw3vIsM7yWgG
/3kZtOupNufR5gjedPH02aHjQuRpL3qDuHCtBkrW0Plt85CPCP1ThHyym8DM
crW6kSblbD5rsBVMz08hvUfqFk/f9voIvbONjwX6KNFXqY4PXq7wyI1LVxVY
pF4g8kBPKe24pwPL6GFXFNgYCntDbUd4SFi5CKH1ehXbjmmpK5vVMiMiUikq
i0tBZk6MWiYIVDY9qtDfEUqBtQ29h+guMX8fyGTUv6aIAbz8An27yhzWy219
9JyZdmwG8973wXSESfv6dcFXvSir9UKtKqe3jpxAlhsvJT+QHgfylr7FRWww
v6Fpdmc5W8vtuIr94fHWmSjfUc7zF4l+CLoPqTCgbq9KqOrdDWj/VRvDnMxW
Ij+Ll913doRJi9ZY9DA/TVvbFf6bpg2ZXXjPX9e3+esK5gc9ze7Z55fcoy45
OqfrhUtPLtggygmlX31XuNrhqqcwoh1XNFzZUOnA9Zg23G5N+t/yUQviBzVt
lpR/DprqNkJSc4uzat1hlic3ToahK7ETzmyjo0qdMltpQN5c5hiZmw+HO5hf
h/l5IoXTBn8RIOnAS2+ihsHeRId1dx4VS0aAP2VJ+xKJLbG9+7F0V4JeyZfe
Lo0v4UjA/frWBfGajFedIEWzoKVcEcperhYWH5HJ3gvryTr8sCvmoKA/0B+P
NHsXTDPD/qiBFC3yEgDRG3Qy7SxbKjqzaUua1pmMdBjoWexTgq/ffJy9EsEg
AbyWQH/F0ccUux5bmrd+tWtIE7tSG19HtfE3thD6XQs03q9ukkwimNrgUMB+
oKZOG1wfQDcC/PlEs24ww4Bey3x7wsK1/AoXhI3BK66oc4GkUHlG/y8+Y2Ql
USQbuW8Vpw+ytzbyPkj+Fkca5A8WmkknTvmM/ade/2jC3GZFWo7F+6/wHixM
id+9wGfc/j3TO7OM3pfFyReDHQT5Qf1soNk6OJbPoNObBsHRK87czoP4ta06
EdXNXwCdF6402K0EEu1qPy7bE859rzfRad0VM81rjGBYvhWaUFjP2HVl/vdO
ffALyaq4g9aZuE6vIPKfCOObbpajGyJJ6hEj9uekEkSQdHBFD+yoeEOnDa2n
v45k2Ac0GaUNwZHE3t6DwkcMszpSYNcH7xq4vx7O375DYT/bSt5e8zx8lkah
5fCERAsN/Xl75pJuvL2Os+9YYte9Q+y7vaIsev6E/STtPj4maIiiUarR0RUS
HVmbB06efbqkHu1kQcfegZztse+/+ktRVr2MTtpXnA48LI8Gcsh0RHNqNIfg
QpjkWMbyJWcNQsdUt5C6uAsT+/6/vYrC4Vr7E3nChNBcI1vxbmLqk6dINoZG
kvTaVVb25+10UKiYvSdcO2DL0mFBEoZ6o5MQXbno0hUk6QL5xBWxd0OS5x2o
dyXA+PwWedG5IAkjGAa7/k2QhEY4PmGALf6ZkpR3MnCSaM4YzuMtPbUQm1f9
/VEvNnJqW7mROCQ4NJiSP28kAjK019WFnixt8vhzb3NWrKnbcOSTHxSwyx/5
6qk7IMCJUNcTnC40pIgLeYx6QjbS5kpPcC8mir8YjBM67fEgS789c90K3aJA
pi41gfmLQVZClkI2QnaKsuKkIEmJFHOErwXLD1/3EMGLP5ylU0A74jtFuJLY
XxBGGx8Vb4G7KTRStDVgG4yf46K/3yVIOdW1BzZl7BWkCKYWNgknxVveBkkK
45xo9K39YUJqA3Wzq8GHhzYfFyTgbYDob0RVCVUmu9Vo9IZCgm3S66Pn//hY
eoUyN206UcvnK252/aHVQXd6pEvYbjUcodFS1Lrn4K+nvlCr0qJz1XDdSEQQ
CM+t5ZBsDo4M4ZnTbwWlUX2Kk4OkIEnq0AAGbO9WNgh6cnqshyZImqRcEmK/
oWhTYetOTg6+JXxbXuRsVcgZ3Pcr6ev2GqItIZLDt1HGF5fn9Lz4BicHhRwK
Oy9yegxh6Tar0QmSHC6l4OhwG4zPrIx99c33xZvS+WE5PtwoPLSjoJxKfMsh
6QuJBtRVrv4400kv2+U0qKaPwPfh+oYpo5vnrVZh3uMQGg0YpvObyWmt9Hos
TgNh1ga6o6UwFZ4D+8hdNZFakJbjsNUPDTSHO9NwJxnluiiIQTPEROoU5wPp
/hn3jFTPifNMiGn2iMvF2HcLXkqi9d3fcsuXuN/GulN+G/uc/LFF1WQDPFTg
LlJsi+Jl8EsOX29+O3gogy/WJyLEz8xuz6ebAXzy6/xb9PB7Rqwkpyl3t3o6
Oszk4LK2Y1lvC7tBmcLG6C51xr8jnU5+grRQC4nzCsWnZbeFRAVeb+Ws6tvZ
U1g/xKmIxnmB8wNTGL2NUdxnumetOTc/oY31eI8/XON0WZq8FjJ7AUzuSq9s
3HIQ6iq1kJDWCQ3MBl42V5i/rXFlGLytDfZuf6gfMKD2cNHMUW+uwlu9aHAa
Oh0w/9qb+6E1Ld5o4a7L2oraVWAdNsEqJDD5q3+Hihg8xwpdK5iPEo3rjpRU
iZUbsc78l1GfCwyrPou9vgfpZvEE9ww4xo7U4e1ncKi1kw/zVthBjEXqW9+5
D41DNBJxjGNfe/X9AF+vPsvGRwDHl8OEy59NoYFTL+1etkFo0yJ4BQ/EYrRF
6CjvV1Gqv2pa8kbry5c2ZL2AloS6b0RFGi09EMrQPoCR4XjcVyjukFoQQ0+A
09j0VelDu8sbsKSw/7F72M3QUdoRJSS0rqbK+ZxVCTJQrqEDd99QvUI1C18e
vsTQMUVSJTc+Q/vZDfzlaRtH17vjJN6ah1412kF+411A6GgOH0ER1YQpvCgS
dqL73Z3J+L5wLa7GRCjvJkKZ+lqFfaPxvr+Fx4AIb6RE943BHUF/FBenBfUR
4qzkHBD6AEaL6wKTBg69jaxOg2g//PUB3SHAzqRGUU8wwF3MSIkT8S3Y+dJb
19rrnwDU6A5JnHbY3vSKqIccQB/2hoQO3Qf4e2k4ok+9ffoVtL8ouiEF3UAv
DUzTTf6Q0NkwyqG1fFc3PUjDIqyoGS+2EHE64rREmI4DQkJ3P6I7mFHfiasD
RrbSHSFsmmvxaqiNdudjyPjG4os7+/SSzn85+fYFfHE0YJFLzE1DK/dQsSV8
FF6Gvt8JM9ZrTUKxlTXohAWFVPrTCcrbRy1o40urdqMZK+1MuSoEjDNKj5M7
FabmJchQB2eeiBrAQ8fbX8zrw0NmHKPGEiH2Ur1yCuUXIt188GXRI4wv2r4v
r5eeH+cwtigIiv3gZHsxYwx7rp5AdgM4up8/41wD+Rhr44gVt9yg3vfS7swO
cdROxzr7/FEz1kBN4Du/nKQrUyqWv5G1ugMVPUEShhCd6Hu2gd6vYWQvHyQx
yWwDdevExj8piUFuXCkkXpz3QhWNo+ckohi/3PmTQiHCdYuSDxK/xd+hZ3RQ
bk6pI8iffW/ckvpLKxbeWbAkk3Gt4rlbF+v8qPXxXEvGpcuYuv0qCcIxc7PX
FQxBRBGS3RRuiMZJbEt1zWzKbsJ/dvv8z8A9oZGu45Zc7kOasZiDaDqzBkdN
yfSxtarQ6WE/FpzKj481lGZSuKDzg5dHoH3qOtQVwVI2+KBTBBiMut0wqHKH
vwCD+3WtoSp9ADWTkswzZZUs9ki9Xrk3tYsGQVuKEr8k4oY57k6DOQP73hsV
aGOyC1+tqlujwKLQsj2wc+EGoUjpRMqLYRJw0cYVBrXVjyc8X7lj/YYaVbgd
3pHeKgIQdZLEByX/ZI3iE4KiY9OWVoEC/Thv985E7fFXXpIgNBR/HJ9aXbJv
sE+gQDfNb9ufyKf7AB6DYuoDxX1ipimhIZGSQQbZZj75+ytrUj59bG7twleP
7hWvG1XX8xufWofbEtZM7EMASpqUOK9IKand/mjC7Zs/jp9b+/Sbbx0V+FFF
emXHgk00UNeSYf3SFKUbJ0UeRgQ+ZKj5o6uL3tCtOD537svdSmPMLJk1dPK+
QQEP6mqywwO7kRQWj3x6G6i/rLQ5Y728ICkuoZeRMOiPhGiFBCU4gS/yf2Oo
rgv/XL2YLAV4RvWo7ucbmtXY+Mmb9L6tgGcRk1ffNhRXAxtr8tB09MbfquKf
tjNg/JptKc5Zbljn+UEy23G9Ln/YOhLeevOc4jHrhOK2k0rjqj0ZHLNGGWde
VdPenZ9OWlDGJ9jM9waPf+z+gW67xJtPA5EdAfGpFznO2p2b7/wofY1gx97Z
a1FlUsnBXUwanR44OUYe8IiRsWZRL8o6Kjb3wmpxy1MUrJ/dIndJyB/uq/7h
h4+30sT+4AnC8SJr1zfMkQ8uXdcKpRryLSUj8t4Kj2Gh9It8jD6EERdJotyy
F0Zf0F+bE3Egp6VZJaKvjF0cxrNxswE3HQIjYiyYBSpJgrhu8QiF3GOk5M3U
qqZrM1cUiJ12cQRD2IUbu06UuZpf02aIDxEl7r9QA+6+bo32RmL+cnGyA+0N
PLogdofWVh3GW/MCQvtFy5mnFVd9MGtml0llvZO5ggRD4GkhdmImALzBiQsz
WuzQMIU6RZliPtHJTaBLP31yA0YZBEdGQGLCNxnndu+HruRtYh/q5s3b1378
RLtGRgjc6Fc8ePkpfjslqw6y54ifY2fb7by+9zZYKn58D9vwcU49IFFhSohn
/pLn8FnuFXJCnn5p6GzPqsIhAyEMvYf/g+96vEl6OExCZYyR3I8nptbceiEn
DSc0Sno6mejJUJo9P1z0BSFvxPqMnqfxc+tvFSxNkRdf8rmOg4iDGfxAfkVi
+KY/+aOMFfdJxcxu+l1h7lwh7sQOtHqDQLjeqn/5xEKmI/hvQacvTRIuajFI
yIXIjWGly8T8wWhHz7/Mcr7fvGQJ7gPK0zdEGKFQ0vCHYTaZ4McdnE8fS669
0pJcQCMVxKER9WjxZ4gfI34+fey5mt+1xJfSnViOHw8c4lE+3/g/Rz+VAzSS
bSlPEOmTLZ+pFCKZEVxSE3Y3tBN6P6QzqhxcE2rocUXeD1zKcUkPpB8P6vhI
75Zg7M9EFJZR4ez588H14X7JuppksYtFjAyjKK43+q5Af4byG42pS6mzyzJq
w9hXFOeRHtS77MYrW6MQHMHfZ0DjIBybrN/CgRLK+xQL+mU6ELpzVgwNMJRG
7Vr3w3Sz1nCPkTiTYz0M9DgrHYZIcUGoR700NOixkJ5APhZ8lQ1lLO5VRPog
90fxUE7dYv6wYSw0L10ZtE6uEYeliVXBojZ9TX87/cQRpzc60ZS4pSmapsbp
5inzkzEvHpur2rDQd+gmwyVZhQ5RkNxhsrmCm1SeaQsKLm2YVmcppNNMehfJ
+mi82GgMBT8g9wx0skoIMSG3+EkUtybnvhAKu0fK6cybp0Om2m1amN9iiMss
OLX52RbeWeFG9N3Zr5rMwC+Gwo1R7K0OapKI+451VqbwvjvbP10wd8Xxralu
Ti3aMmjTBEatOplCovYe0GtooNcmGQRZ+Ou6icUiVqY5dnoyn13xav/CVvHD
8l57GGbUP8wnloo6+KnO7uWwazODzTmjHY2e+VmrtnnyEgs37V/dywn1dq+Y
ERqkmvCAThyzt0IVTlbadmbW0h5P4b+uqnvZsVesPd6+z0AJ8VJqxWqg7hPw
kA39SV3OnF83jBT5u/Tk8+s9ZfFF5a8694tNNi/vZxhGapxgFb47xLLlesEo
U1wBUk+phpG+I7or4+MSmAcmPVxURSpTX05/7hQR6gQT96iE105aCztrXtX/
4smUzXrnZBhG7J8M+F9y/+LWD591m+NP2BV2/OryyjeaRLS3DvY1w6s7298t
X92rQyd1Pxrq2HY2XK9Ozn3+6lCKaR6WbPkaDZoQnpO6+FTWOk/dj8onnz/6
DjfZvTWhBeGTDior6ja8PariKknEE5hnE5e1exonVP3D1V9c4iR6KyhhIFEN
QTm9aRdUK46foRF664XO6/l8eFGitT1D/tS9RKnzcYYNJfPhGH+ym6PUnJlW
OJl2ek9gFtyoWxhvivUWrOHDtkzsOk2ItBYhwGb7rpGiITzN9PrzdY0e5EU+
hbz9KWaMyDo6FgJR520ezoWERKFEBdlLcSDYylq0iFqx67uLUW4nn6uvVLvr
zdTG7uJZ5yiU6tS/Ek2fQum9Ep0RUu/HSBtRZMtNdn9RCXIEMJh3dJ6zWB0B
b5lh9sIjRTe0g16EWUIchmxWNsRhMMYWcOU8wMAbmyqvWH8XmvRXM+Kue/1Q
YTTn8gCNONl1JZzKrOv0Z6PNAnssjED/gT3SbYnRzScWdubT9+4xCE+z7jP+
DtCcI129LBiPkRakOScnuLdhqE70ADqKkaXnktct8jQ/VqOKbMuOfoW9bTBY
HUGaTd9WWE9QxiNpvLiWs6ddTziKlYupTQs/dU6kh/WEGLYkXBp7LAyNpkKk
Wp23kmpfYUSUavS14ry6lNqY/kdOte4CF2uqIzWUbMBDEQcsAEq/meBtpqru
LzbYvfJHumfA0kRKthCBlmTfhVp+/OVmbtQn/dE1sUIveTLCi2voyBAk4u2H
9cmfuH5YJbj8s8CFUeqQ41oNsdWzP3ZPrNLrRuHFJe7R8zBcazUV5TMYw4IN
R2BzSz83R5x4qad29U0YcP1P+kV/SIBmxxUMQqZyPCzGDf+uLsZhmI4CJVnH
uHrbAYkTFZQuvWEYNg6g5go9ttTe0itHdMIEFpqRGSY03I/y0fyi1GvtU6vZ
DRXBIPDymSjU4/m6rN7DR9TWLRsPSv33eMx8/Xfh2V0bUyZ91i2xDoxF8ENp
cKpbmMhs5JdfYwBXS2yDJZl4nsjuwYsqI6HtWAfkbdCO/+W9spm0RvIi+Ij7
7wf9FltCvBu08rgwdWWqU2pUxq7gIaxI2hUbv36XdKOvkUgc2YUHAnoV6mLP
X0eQqpZK/tI0J58wa6Ejqwk3KC0njNT/PdpPLzOf/4MQ6GaGWYB66OQjZ3aX
9XZ5miZU7enJb/dJfhQnn/+yK00FsWVBSxqC1u+O8oPFNS2emqcKhloXrZch
FmaUP8wpV0PR7+Kds/ddCTUpGdtb83oDQq26joNEzZYedAmeZ+jF/uKCFKjP
6GIxWlb4v8bx34XgscLfnLLg8Nr0TvqLqmFdjHTDvAYcWfNeXZPaLjX58KJB
9fv66qTyj6oXpfx8+TNtGHoWLjTayH3IlAYqepMgJ3/uiRee7WRRbuHsEl/G
bzXmzL2U+mQziysNBoGvZRwmEZk1J6Pst+uWytY/i/ceU54NebFrLne+8NzN
ZybVY8xNeNFQJwYai3ccT1Rc61iS7ImLqWXjlBV2HJ82PL72RvuiOZ7JMQ2f
FQ50SVxvy5xzYU58+39aHD982vVJ44/W/nbd/JTjmXM3WeMIRkMkz2FwEKtk
xk5v/rhhcuUnrmfmHFq0cIc/Mv9k7l2Fxjs/ntF8u2lylad55my2P29GIx7j
i5I3fkfTp1BIVraoQif51szZzt/XT1/tcf30ORbkZTWszKlo8oMJ7C7s6BC6
QH2DoXWBSfgo3Efla1Y9OLVuWPZCRoDor5lm1AesDdLS6p5qyNpFFN12xewZ
CfXQPKUceyAVG7MeCG2Q36RKU2PE4Afg8RSGG4/poKm7Jr0OmieX3Gp5Mtsn
6UInugtuE6ivD/fSpvnfzea4HHkkzQw1c5XKa35pirmmR017b7EeU57547MJ
dR81P5P7O+eUJZoSZob1q3y2yfAJ5tILcbiJFkOz41IcRMIsuumclI/ow7Um
GNB45jy91tMyc9EfGh5/QepmYURDDDGGZkblx+5ZS67VTC76LNAQo0mg+f26
Z5bdqvjhSnnzSpgX0vRpVTfb0rL+sObxlZoCGH4cVzvSl9wum1DADkmEFYed
yVJ+RXhtzHJaZlG43gb9YQmGgt/fXRezCsKNg4h2DUdGOjgmloUNh9ix1hga
tM0dix1rPqgrci+tT8+7tuyJqnARIzeW1cuxA91YplTdyYuvutzx/JJf5cfX
WlIVjNo36JYBIHwMlCaC7NgY3aajrjP+9oxl537TlpZ9pmBWi5/OBRTuTUuq
5ryIyw0p6iGa+8NU/cL3PQICdtqxQSx7vDNmMgCPg2Ng8z4a2NwFffqfxqKB
zfuC0TtVh68YDbOFzGsnWL03IZvPk0B+KUAE+jlinRRBwZQaaJmWu7dycZ85
P+Mty2HtstBTebA1TYUa/sCbpZ3jp5qUAfDV/2Le/zTsf/zibRX5u63lmbb1
f9b4I8F3s/XvDk1bs2Zk3VX+Zowses8VPeaUSkprcq0dtu69NP0C0IN1dlRo
u7jmkT1W88qwD01Z5NOaiTV/dM2cW9Luft2yV1JtVuT8nyDSihFYN4Eom08n
4xapJYFMuY4SP3lAU8pPHoRknVLs6Pv4yPnsc1LNtcZu/osFITmbA0cdupJF
Xvzam7WJWVLlDX/zNxwzsz+r5kunVNyomLlEhkuEUX0jUosz/CIojmmAradv
hFlFjDLgcMH47DdwFznctocXGnZ9alh1du55xrtQZT79vEvPM6uYk1j0ycJJ
xazF7HDNIdZE5jMrr2ROqftM2n4+5YXPrO30+bnnc6c1Wrcd7FFIXPSFs1Td
3A3pKCTN+vS5hTlv5Sd1+KMxeM1P6L4hCVZGW3JmDm7CmNOGZxYj6QENu3IB
M/2LQnCoGmsY6J61NOulssxe6zHVPKQX9D8awdg+GA9pGEgXgTOumGFBPqrO
oVLP3I4BK49h7IDnylu0A0/lL9yyZsWAZQeEa9dwQ3QovtEwUv30C8872uoO
WlL9cPhQijeduMw3yq8qKMVrDDL6UuWLxNznV29wH7XmCy0KAMLAh57EnIWa
1zUMsl0M34Uh6pvS/oJo3msRle+kiju81kyDIf57Z2GkWTRfWzJHqnrhH5JP
5+TPC2fz6ux5Ztk87SJg2ra/+0wEcTE5ZTQ7riBV7ogfCaBaoostQ4vTAq9m
E9Vg2sI0RutR/3WE73lulv866pjMXcSOt/mjTalzJzk7PaA6gjaik9Lsirnp
AfdH1FkzNyvoOhUp2YGNgebSetnIVEp/P8zJXRzsGF3KyV/2p6jzTn5JQbB1
RvNXlwRb540Va6qCrbPT0dQS3DxZRkVAf11Ta4DvXBF6jpW4NRwwKl7Nva4j
4OnFJdTKTbuGwOz3Ys1gT98FjKN/hPc0sH0An24W2n7W7oPsfPwXTXCawf4u
wHJ3A/vCnwDHn6sf/D2yo/XjvK98tbhJ2ueWCsWQtu/lV/7DjfKfC+9/pL7p
3niU9xtXXdF2zRXtz0ONK1wNIpp29M234Ev/CQfmPyOOML103e6LXWb73ZQh
6mBCNdNTKDLy8aqip4QPHa13/c/RavD8oLb6iIKVrndyjw93S0x3RazgtNkb
KrFmRxUDXXNpazdZa/SZfnzTAgB/8X8B2LR/bg==\
\>"]]
}, Open  ]],

Cell[BoxData[{"r1", "\[IndentingNewLine]", "r2", "\[IndentingNewLine]", "r3", \
"\[IndentingNewLine]", "r4", "\[IndentingNewLine]", "r5", \
"\[IndentingNewLine]", "r6"}], "Input",
 CellChangeTimes->{{3.508484240546875*^9, 3.508484267796875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"r1", "=", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3A3InlUZwPHXlVqaaTbT1NKV5kcf05pLzeajs+XU5nQ6J4FFJhhihSFZ
YLwspJBWsISFLMQYLMGQhawEEZZhDMPeLEya2BtDG37ElLIorXyu//2cP53X
q053z+smJdHDb27uuc+5znWuc517m/eJz1x4xZyJiYmpvScmhp///M+lg/97
vD51z/kbpx/bcPq/9p2Vf1z80Ffu+8vUqp/hyVUzvPaopS/+78HxeKL2JdXP
XznDfN9fFn91+PWO+HXni2d4+LPn3v3IS3ui9kXd8/7mpT25YnD6guGPTBc/
Pvfu9avXbe9+fu0L/63X/PHWTYsWPF48/DbrV/+u2fF1pnYU8/xPdN/vgu75
nur+/UyvXrdi5zX7/D71p27f/8Wv+Ezi5f+xmc9nmz0crRU7NfP/h2Yzvs8V
M35/Kt73smVb7j/uz6lf/MXDEU58/iB+u7nPFzO+Iy8bfG/4+Jv+NsN7hM/r
4uvvxfy8icHIjN8e3Y+fO7j+yuEPZD6nG685xT9fdcShTy5+VeelgwNiQF7d
24yvHo7WdafsWcx479X57Bn+wdXbNl+9beQlg58Of/X8vYuZH818vCb18Oku
vz4360PHL7/utcXX7DP8kZEXzzDzvU/xI5uHD7BvMfP/uuKzLh/OyH6dzxzE
crrs9Z3PGDBc+6cmHkYeDJ5aHP/B4vh6xx1QfGQ8rz5+OJwbNfkq86LB0lhw
b0jNeGniUX8uvpCO8LvmwGLiUROPbywmH+pnYgL0X6eGv0DH4145tzjSxVrN
+B9UTHzqTw/Db7OO4ZrWxOubms386u9EwGji++AZZn2f1s23Jr4PKT4oBlAT
3zp++2VvLv5S5ANNPj20+NsxP5r41szPYcXE9+HFjPfh3fOc3I33W4qDazTj
nfvzMf46lte2txazPo4oZrz0byNfaNaLjul6SO8Vz3Nk54Xd+GrWU7tZb5r1
pRmfecWMj47H3azZv99WzHoaeUHl93bxpsmvmnh7e3H8dldrxkfzeVQx600z
/5r9QLM96osiPo8uvjQCWDMemvWovxwL7B3FrLeRTxh8P35D/aOIl2OK2U80
+UbH19ui+Ty2i/d3dfF/bPnx2L4X6RjejZr9X8fjPKbPj4A+LjXrWZN/Nfk3
N+tfM37HF38tJlwznpr8oMkPmnyuY7jnv7OY9akZXz0a15GpL/RhEW/6pPgP
auJr5KO69fXuYsZTM36aeNMxXLdq6ilNPfye4m/GAtDEnyZfzS9m/WnWX27G
S7M+Nfuhph44oZjx1MyvJl9ovr+mXtI8z4nVeOtIV4dqnlcTz5r50MyH5vk1
+UAzP5r92LxFPtffii+gWa+a59fEtyafa/bH9xWz/2jyi6Y+0nwuKCa/aOZP
k391pJf1mvWpmT/N/J1UTHhq4k/z/TXzoZ+LeNTspwur76/5/rl5Hk3+1DyP
Zj408ff+YuJPk480+4Em/jTPr+Pr3q6ZT8161MSnZn5PLmZ6NfGp2d9zs341
46cjnW3S1AOa9XtKNV6aeNDsL5p40Dy/Jh5OLWa/0axPTTzoo6O+0MSDZn1q
5v8DxdT7mnpDfyx+gib/a55Pk3/0qA4emXJUE/+ael1TP2meT7NeP1jM/Gjy
j6a+0r+KL6SJd02856Y+19Tnmvp0UfW8mv1RE6+aeNUnxA9o1nvmI7v1r38S
8396MeOlqQd0hOtizf6k419frtmvNPlBc97Q9A808aNZf4Ni4ld35XUx+7tm
vDXxranfNOcVzfhr4l+TPzTjr3kezfrX1J+a/HdGMfGjOe9qnk+TvzX5IjfP
r1l/mvWnGQ/NeU6T/zXntdysZ81+oRk/zX6hGa8zq/HSjJdmP9Hkh9zkX83+
oxlPzX6gqXc061uTvzX7h2Y8NeOlGS9N/GnOU5r404ynJp8uLmb9acZXE3+a
8ctNvtOMr2Z9auJTM376k/EAmnyjyc+a8cnN/q8ZL816rcfnrGLiURN/mvyq
6TdpxkMzHpp+qmY/0qzP3MSXJr4046WJr9yMl+bzQ6mJL815WxNfmvyuWb+a
+NKsT009qNmfNPGUm/HVxJdmfNvNeUoz3przlWa8NeOdm3ypWf+aejA39UI9
X0uKqR8086OpJzT5QRPvmnpME/+a87hmPWjyrSbfavJDu9nvNPOt2e80+78m
P+emX6+Zb818a/oZmvnU5CfNfGrmU9Pv+3Ax+Uqz/jT1lGZ+c7M+NfOtqU80
+6cm32vWo2Y9auYnN+tPM3+a9ac5z2jO75rx1oy3Zj/V9N/azX5ydmrmRzP+
mvOcZn1p8qNmPbWb+dLkU039qJkPzf7TbtaXZj1p1otmvnJ/IRaQZv4060WT
/5am5vyuzyHgi5kfzf6v+ema8dbkN81452b8NflQU29q5kezPnJzftPU85rz
nKa+0uxXmnymqa8086H5PKeY+kGzP2nWS27mS5PvNP0/TX8mN/cdmv1Mk/80
861ZX5p8qDmf5ma+NfOtvxv5MDfnW/1EzHdu8qVmPWrmu93cj2nWpyYeNOvv
3GL6S5r6RDO/mv1Kkz8161OTTzXzm5v51cyvZn41/TbNfOamXtHxr9dp9j/N
/Grq/9zsj5r8q8mvualH28385yY/aOJBk5/PS83rIZp+kiZeNPGSm/jR1Lua
84kmfjTxoulHavbr3MSLpn+pqZdyEz+a/UATP5r9QLM/5yZ+NPGjqX8195ea
/KCJB/181GOa+ktTX+Wm/v1IMfOr2b8186uZX838auYzN/Op2e8151fNfq+Z
z9zMr2b+NOs9N+/fac4vmvnTrH/9w5i/3PTLdSzHJ9vN/qCZ3/4mXyxLTT2e
m3jS1COa/KLpD2nySX9TX2riVT8Y8dpu4llzHtfsZ5r4zE19qslX7eY82N/U
Q5p8l5t6V7MeNPlNsz4060Nznte8v6XZDzXxnpv9T1MPn9/bxK8mfjX1syY/
6q/HA2riUdNO1YRTf1NP5yZec3N/pYnn3NRrmnhuN/Go6T/lpj7XxKPm/KU5
f2niTRNfmn6GZv/Mzefy1FGfzslNPtXEn47n309T3+eO9Xqwpp7TxKtmf9e8
PqWJZx31zIk6fvvTNPt/f3MfouP8dK6Oemi5jvlcqYn3dkc99dHcrI/cET8f
15xvcke4XaGpbzTrKXfkty/mjo/JKt5W6+h33qBZf1X83aipn3Ts79/IHfny
pioe11XxeHMVj7e0m/Oaju1rg6aey009PvIhMxzlwZ066oV7NPuXjvJla+4I
lwdy0w9qN/mr3fHLH9acH3TE86OafKjpR2nyo477t6d1xOuzmj8Oo6M/80Ju
8uMFxeTH3PxxCU3+y00+7O84rh2uIx7n5Y74O0ZT347P5Gsd9diJuaM+W5ib
fK6pl3WUG2fkjnSyRNMv0hHPyzXn/dzk69ycF9tNvm43+VtH/F+luX/W5GtN
vZ87Pib7m/NAbvK7jq93Y27yuea8rMnvOurhm6v1sb6K/41V/N42PnM+r+J9
kyaf56Ze1PHL76nie4uOeuXe3LxPq+n/VvE/pekPVPH9cLvJ51X8Tlfxu11H
+b0jN/k9N/le02/Q1Me52Q9y03/IHcvxhWo9TFxYzP6Qm/o6N/tJbvobueM8
faDmvJibelzTD9HsH+1mf9DsD5r7m9zU97npr+gIv4Wa+wLNfqLZL3TUU0s0
+0Nu9ofc7A+5qe81+V5zvtXU5+2mP6nJ95p6XXMeHp/jY1JT/1fr4YYq/m+s
4net5rytuY+u4nWD5n2e3HGevKOKpzs19bYmv7ab+jw39Xm7o9/3QG7yd27y
c27q7yoep3Ucj7dr6vEqXndo8nUVn09r8rWmXs9N/m43/bcq/uas6HzADJOf
Nf0OTX7V9DvaTb2uya+5yae56Zdo+iP9TX5tN/k3N/W8Jv+2m/ysyc+56c9o
+uOafo0mX2v6N5p8rcnXmv5Lu8nvmnpe049pN/uDJv9r6n8d6+Pa3OwHmvcX
cpPPc1Pva/J7tb7W5Kb+72/6PZp+z/jM+SI3/aHcnEfazfmiWr935KaftOvM
flrlg8067h/u0uy3mvua3Oy3Ovq1W9vNeUhzHqrywy+q/PBQlQ+2Vet7Ojfn
n2o9P1at5x25Oe/0N/ttu9l/Ne93aM5Lufm8KDX7r458sbfmvKPZf3X0Aw7U
9NfaTT9Nc/7JTT9Ns1/nZr/Ozflo9sx5q7/p1+Vmv589cz+Zm3ohN/c5mn5g
u6kncnPfmZvzoqbe0NQb7aYeyU19ouk3auoPTf2hqSfaTb9xfI7h+Wxu6hkd
+eja3NQzmvNpu+Njst30O/ub83Bu6ilNv7TKl2uq/Lg2N/3TKj+u0/RTNfVN
lR9vqfLfBk09kpv+aG7qB039oKOdcVe7eb9t9ky/VtOvrfLLfbk571f5Yyo3
9UmVDx7OHfng0f6mnqnyx/bc1C/tpl8we6a+qfLJs/1NvVPljxeq/DBxcXEs
nzm56T9o+sGa+kfzPpCmvtH0GzT1jKZe0dQnuakvNPVCu+nvavoJuakHNP3d
3Oz/mv5BbuoDTT9hfOa+MTf9CU290N/UA5p6IDf1gaYe6G/qAx3l9VX9TT9D
Uw+0m/6Gph4Yn6kXNP0PzX7dbvojudnf200/pN3UA1U+WTc+U09o+vftpn+v
4/h+W276Je2mPslNf2N8pr7R1De5qWf6m/5KlQ+3VPnw3nZzn1Hlt62a/kpu
7i+qfDalqW9yU9+8fKbfo7kPyU1/p93UQ7mpZ3Jzv1Llw53tpr5pN/ctubl/
qfLjnJXF1Dua/k9u6iFNfyg39ZLmPkZTL+XmfnzXmfqtv6nv2k29p6nfcnN/
pKnfNPVbbu6HNPf1I0/816YezM37ZOMz9aWmvmw39aOmXmw3/SlNfdlu7sfG
Z/pdOu6jV+amftXUq+3mvq3d9MPGZ+rhdnOfp6mf+5v3AXNTT/c39XW76df1
N++r6Pj/SU29rXmfvN3U3+2mHtfcV+am35abeltzv6jpt2nuDzX9Nk3929/U
w5r6Nzf1bJV/76ry7d1VvrwnN/d7uak/x2fq19y8H99u6tfc1K/t5r4xN/Vp
lQ+3Vfnu0SpfTVf5aHt/U7/mpj6t8sPOdtNfy019qXl/f3zm45Kxmb/fR/P3
Meemns1NfTs+c5/a3/Qj/3fN+aHd1Oua+2VNfZ6ber3dvC/28pnzQm7OD7m5
b959zXlGc55pN/fZu485H+XmvNPfnHc09+3t5ryz+5rz18tn+v+5OX+1m+O5
5jzWbs5juTl/9TfnrdycrzTno93XnM9eueb9jd3XnEd3nTnPtpv3VzTn3/GZ
+6vcvN+reT9F8z6K5nw8PvM+S27ut8Zn7r/azfm93ZzvZ8/0C3Jzf6Z5n1jz
5xfbTX9A875Ou7nP0rz/q+kXaN6nyc39leZ9mmp/3lrtn/f3N+f93Jz32815
v938eZ520w/QvM/T3/QPqv12u+bv/8rNfVa76R+0m/ed202/QXN/VTxBv2H3
MX/+dNeZ95ty88+q1LzvpLn/62/6Ja8c02/ZdebPA7eb/oamf9Fu+huzZ95n
yx3737zc9FPGZ/ots2fev+tv+i+afktu7nNz/wO12rGo
      "]]},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, 0},
    Frame->True,
    FrameLabel->{
      FormBox["\"FAR (%)\"", TraditionalForm], 
      FormBox["\"FRR (%)\"", TraditionalForm]},
    ImageSize->{391.6666666666669, Automatic},
    PlotRange->{{0, 100}, {0, 100}},
    PlotRangeClipping->True]}], ";"}]], "Input",
 CellChangeTimes->{{3.508539481046875*^9, 3.508539502375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"r2", "=", 
   GraphicsBox[
    {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzd3Q2o3WUdwPHbKiXNsjnzLZsrTWflW3Op2XbmdL7VnE6nFli4BEOssCQT
jIshi5EJNljIQixhCYtYyEoahhXGMmy9oKMr69aaiNOa0kw0q3t+33OeLz63
Hz0ezp3LS3D5xO7dOc/ze34vz/+sZl352YuumjYyMrJ575GR7veXf13eeU17
9LI93qe98fi149vvnv9y39vsR1Y8+MLmy36CRyqPXvqKze//eeqvdv/4zF/2
vGyS+X2/7vmSl3vkkt7v+32zx7fP2Ljm5keL+fv+0Pv9F3e6f3rGxseK+fv+
+N89Mtnz53T/m/Hi2488d+I/f+79/NJJfrz7clZv6/35yqMX9V7/X1Lfuuuu
9fPmPN7zhf/DSyY5Xu7mJ9o8UnvxJLOeTxY/tuHasQ3X7pj/7/j6yCs2+/HU
K/br4u+f7JtXL9153T5/LWb//tZ7ved1Duwu/9KdPZ8zyeyv/vS6t04s6TOp
+fFni/ePDfh7MfuZm/16rpj4/UfxvlcsfuCh2c8Xs/4v9Hx2Z+KHuy+4mPV9
MfX3ui9//b+Kef8jnb6PveHUiVeYm/Xpe9EkE//TUv/mspmH7lj4+mLOg35x
c/cPaNbzDT2fNcmsZ99nTvK3Y4H26nlh51ezu29o72LWu+8zOufFC35T8XX7
dDdAs/77FH+LgCtmvfct3hm/QBOvb+55QeczY90f2K84ftsVbylmv/rudCaC
YeINvLX4qYXLb7p6nY6XO3v/1EdMrP7ymzTnW7Offc/rnBvr8bbU8etv0JyP
3J+PF6Tj+Fw3vfi7sSG5OW/TO5zv03vxdEBxLOe1+plYf018HdD7fad1Ijxv
n9HzKZ14O6cemHhu5/LuX7dcx+rfqr8SG/j21LEc6/UPuy93TBOfBxWTvzTx
2vecznPd9PGIjh9fe3Ax+6vZr0OKv9x9+bs08X1oMedXsx+a/ej7pA4/flgx
50HHy1/d9wmdOK4z3lHM+daHdcP1as1+5eZ86TNjgw4vZr/0F7vLNX54Lz7e
18vH7yzmPOp4O2Oa/ZpZzHnU/D1HFPP+dBzHqzXvR7N/k83vPab3/mYVx8td
rNnv3JzHdkd4jWvi5V3FxEvmIzvfjBeoOf+afK2JN/2DqHeafPjuYvZDkx90
LPc6Hdv9iGZ/jixmf3Qc/5s09UZTjvXFsR9HFZMPNeurWV/N+r2nmHqjWS/N
edSsx9HVemjOZ27qlyZ/avqTY5rNeuqjIt41+avvI3rxri+IDZ9dzHpq1i83
63lsMec7N/la029p8t17i1k/zfrpLC/0TT7UxKMmH+Y+OdZLE5+aeHx/caT/
uzT5UEe63KU578cVE3+a86mJR009O774T1EQNPGl+X5C9fdr8rVm/zTxpnm9
mnyr2W9N/OXm/Wn6oxOLiVfN+283/XFu6r9mvzTrdVIx8aQ5b5r6qcmvH0jN
+9X0X/pT8YI0/Zgm/2q+z6lev2a/NedZM8/kpv5o4kMTDzqWY41mHspNP6ep
B5r1Ojk1/aWmXmvOiyb/aeYJTXxozpcmXvReEQBzi4mX3Jy3vg/urafmvGnW
V5MvdKSf7Zp5RJNvP1jM+mnOm6Yf0uRnTT+o6Q80+VuzXprx75Ri8rcmXjXx
qul/NOdRsz6afu/U1MyvmvXQsf0LNflGE2+5Oc+a9dGcZ83304qJL818qr8W
v0DT72jys6Yea/KxPivW50PFxEtu3q6mXupPxB/QV8Z6aM6fpr/TnD9N/Jxe
THxo8pdmPTTxoX8c719zXj5cvV9Nf6gfjXjQ5PPczKOa+pSb86W/EOujOV+a
/nFeMedJk480+UjTr2vyuT4h/gvNfKeJJ816zS/mPGnyjea8aOZDTX+q+d5J
zfnR7Kfm9eVmvfQ3It40+UCznpr406ynph5q+glN/6R5/7k5L5r7Ck19qNdr
QTH5WNNPaNYvN/GniT9NftWsn6beaNZPk1818aqpn7lZf83652Y/NPlTk680
66+pN2cU/yLyi2b9NOuXm/XU5F/NvJqbfk6TnzTrqVk/zfyZm/5KU58166mp
h5r+SxPfmvyiyX+a+8OFxcSvpn5q1k9zvjX9pWa9NPGoyV+afK6JP03906yP
pv/X5ANN/6xZL01/qMkHmnyg+X5mtX6a/JibfKmJP02+16yv5vxr1ldTPzXr
q6mXmvXUrJ8m3nJznjXxpvl+VjHznub8a9ZTc/415zs38arptzT9j2Z9NfGr
WV/NvKQ5/5r+X3P+Nedfsx+aeNfsj6Y/0+yXZn808a3ZL018a74vKma/NPlZ
sz+aeNfEuybeNf2pZr809U+zH5r9yE2+0eSXdrM/mnlBU98084om/2jWOzf9
+9nFnA/N+dD0C5r4zk3/pekfNOureb6niXfN/K1ZP02856af0MS/pv7lZv01
8a+5r9TEvyZf5WY/zqn2Q7Mfmn4kN+dDk790hNc8zXnR7Gdu+hdNPtPsr6af
0ZwfzX5r8plmvzX7q+lvNOdHs9+a/dXkN00+05GOdmi+n1tM/tL0P5r91OQ3
zX5pzpsmf2nqt+a85ab+aPar7/17+6HJZ5r90Dzf0pwvzbyYO9LVBn1cbHBu
9kvz+QbN/mnyY276M81+a86v5vt5xT+N/c7N/mrOr6b/1fHjx2vukzT9hub8
auJBU88095ua/k5zXnOTn3MTH5r4yM3zG835zf1kxM/gJh9o4kmT3zXxpMn3
uYmn3PT7mu/nN5v7wNyx3TNz0z9p4k8TX5r40tSHdpOvNP1WbuqLpr7kJp71
d6J+aO43NZ/fyE28afoxTfxo+mVNvGjiY3ATP5p8lJv40vR7ufufM+yb+qW5
f9LEjyZ+NPVL029o4is38aOJj3bzPDk3+U7Tj+hY/hW56T81825u8pumPuYm
H+VmHtPkq9zEU+4vRXzpf0Y85eZ+PjfPC+t4+mgx8aOJH02/o8kHuT8WG5j7
kNj/4Zl+SRM/mvsQTT+bm3jS9LftJr40n7fMzf1Vbp5naD6PkZt40j+Khk7z
eQxN/5ybeUgTT5p4WlxMP63pt3KTnzT5Sf828o8mv7Sb+NA8H9XEiyZeNPc5
uemvNPlGEx+a+UjTf2viQxMPmnyjqW+aflpTr3LTX2v2X3OfrKlXmu8XNJt4
0dQzTXxo+nPN8+jcxJP+eiyIJp9p7qc0z9/aTT+l6fc1856OH1+u6ZdyE7+5
mQdyE9+afKeZJ9tN/GrqZbuJb828qZkvc1N/Nc+bcjOPtpvzpDkvmvOgyY+5
+b4kNfcROtZ7Px35Zbrmea3mefzg5uPNmvOm4+3Myk3/oGO/j9b0EzrC50Qd
b+d0zXnU9J868t8izfMoHfVwiaY/0czfOu5nP95uzvPg5r5HR3hd1W7yg455
4xpNftDc72ryQ27um3Tcn9yiyR9V/K7MHf3AbZr+Skf+X6Wpn1V8rqni884q
Hu+q4vHuKh7XaubHKh7X6wi/ezX3k1W8bswd8Xu/pn5X8fyzKp4fzB3Ha5Nm
ntARXg9r8lfuOA+/q87Dlirex6r43arJh1U8b8sd8frE8Bzz4tO5I96freL7
+Tr/XlhMP5I74n1vzfOAdtMP9z0yyXEepmv6IR3n4SBNvs5NftbkZ83ziNz0
3zrif267yd866vUCTb+k6Zd0xOuS3OTz3OR3Tf7W3FfpiOdPavJz7niedFVu
8nNu8rXm/qPd5HMd90vX5450cqOmH9TMO5r8ruOvW5mbeaiK79uq+L69iu9V
VXyv1tH/35Gb/N9u6kEV7/fkjvnh+5r+VJPvc0c5uV+T76v436RjXn04N/lb
M99X8T3W7oj/rVX8j1fxvL2K3ydyc99ZxevTuemfc/PPnzX9tCaft5v7Cs23
i5pNPdDUA03/njvOx36a/J6b+VfTj2v669w8r8pN/52b/K8jfOa2m/zfbvp7
TX8/uKM/Ol9zH6SpJ+2mvmjqS27qi6Z+aOqFpj7kjnC4pngkXs7nNPdZOs7L
9Zp+vt0R77do+nlNvtfke819WLupB5p8P7h5nqmpB5rnSe1mXtDMB5r5QMc4
dV9u5gPNfYam/9f0+5r6kJv+Xsfn77e0m3rRbuqHjuO8TXO/qKkXOpbv6Sp+
d2nyeW6+lqaO+J6Wm3yem3yuuZ/R9POa+5p2c5+j6fdzc3+j6f9zMw9o5gFN
/Wg39zmafy6qqSeaeqJ5vpib+yBNvWg384amvmjqRW7qR27qSW7un3S8/WWa
epGbeUVzf6SZVzT1JTf3R+1mPsnN/ZKmHmnqj+Z+ScfzgxuHZz7vUp3vm3Nz
n1Wd9xW5qX+5qX+aeUdT33JzvzW4ud+qzuc91flcl5t5Jzf3Y+2O5yv3tZv5
qTrP91fn88HqPD6Um3mpOl9bqvM1Vp2vrdX5Gs/N/ZZmHqrOyw7N5z+q8/B8
Fc8v5I74fqmubxc3m/soTb1qN/PJ4KZ+5aaeaeYdTf3S1C9NfcrN/Va7eX6Y
O55fnaipb5r7ME09mzpT/zT1T0c6W6SpZ7mZf3JTz3JTzzT1bHAzT+VmnsrN
PKWpZ4Ob+zfNfZumPuXm/i13fI3m5r5OU68081l1Hldp5qXczEua572Dm/u3
3NSvwc39naa+Ved1fXU+N1TnaePg5r6vOn8PaO7/2s39oGa+y02908x/ubk/
rM7rlur8jVXnbaum/uXmPk8zz2nqn+Z+LnfE+7RLipnPNPNZu6lvuZnPclPf
clPfNPd5uZnXNPUvN/UvN/VPU98GN/Od5j4xN/Nfu6mfmvtEzXw4PFM/2019
zU29bTfzqGb+1Dwf09RnTT3W1EPNfJib+XBwU19zU2/bzTypmSc186RmntTU
Tx1fo5r5T3O/WeWTFe2mvlbnf1Vunm8Nz9TrKn+s0dTfdsfn5+7OzX2oZr4c
nqnXuZkvp87c5+amX8jN/W5u5tnBTT9R5YdN7aZfyE3/MLjpL3LTb2j6DU2/
UeWzrZr7ZM18nZv7ZM3nQXLztSw198Wa/iM3/cbg5nnh1Jl+RnP/rOlfNP3K
4Ka/0fQzmvle089o7ptzM59r+gtN/R/c9AOaeq6p57mp75p63m7uk3PzfFLH
eVs2uJm/h2furzX9RLvpF9pNP6HpJ3Izz2v6DU2/oZnn2x1fo+2m36jyw8rh
mc9z5+Y+u93cd2v6n3bT3+hID3cMbvqhKt/cmZv7CM39QrvpZ6bO9ENVfluv
6UeqfLWx3Xw+dXjmvl7H57M3aT6vquknctNPaPqHKt+MDc88D9Dc/1f5aVtu
nnfvPvP8QdMPDW76pypf7qzy5bOa5xu5ue/JzfOOqTPPT3LzdWlq+j/N/55A
u+kP283zmlfP9ItTZz7vnJv7NM3zIU0/qeknNf2kpp/U3I8NbvpPzf2Yph/V
3G9p/v1Zu+k/h2fur4bnyP8LNM+bNPdZ7ebz4O3mPiw3/XFunl9p+tfc9LOa
+zXNfdjwTH+7+8zzruGZz69r+u/c9OO5ed42uOnPh+f4GtU8n8vN/eOeY+aN
qh6sbDf3oZr5IDfzQm7mg6kz88HwzDyRm/miqidrc9Pvt5vP6wzPPC+t6te9
uZk/cvN5n6oebdTcb/7/mOe1ufn3x+3mvnZw8/mndjNfTZ2Z19rN/XBu5r12
c39c1dPtg5v5anAzX+0+8+9tBjfzXm7mP83z/XYz/+255vMHueN68qXcfF7B
/59V/v1Qu5kHXztm/svN5y92n5kv283zkHbz/EMzr7abeXbPdTw/ntVu5m/N
PK35vMnUmfn81TP3Abl5XpWbz8PsOeb52NSZ+4o91/zvL+bm+WDu/wDUfbWz

      "]]},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->True,
    AxesOrigin->{0, 0},
    Frame->True,
    FrameLabel->{
      FormBox["\"FAR (%)\"", TraditionalForm], 
      FormBox["\"FRR (%)\"", TraditionalForm]},
    ImageSize->{402.50000000000074`, Automatic},
    PlotRange->{{0, 100}, {0, 100}},
    PlotRangeClipping->True]}], ";"}]], "Input",
 CellChangeTimes->{{3.50853948434375*^9, 3.508539504859375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Show", "[", 
    RowBox[{"r1", ",", "r2", ",", "r3", ",", "r4", ",", "r5", ",", "r6", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "50"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "0.8"}]}], "]"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"r1", ",", "r2"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"r4", ",", "r5", ",", "r6"}], "]"}], ";"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.508473977671875*^9, 3.50847398421875*^9}, {
  3.508474039953125*^9, 3.508474048796875*^9}, {3.508474195328125*^9, 
  3.5084742065625*^9}, {3.50847447478125*^9, 3.50847448975*^9}, {
  3.508474668125*^9, 3.50847468025*^9}, {3.50847514178125*^9, 
  3.508475167390625*^9}, {3.508475201625*^9, 3.508475234359375*^9}, {
  3.508475615859375*^9, 3.5084756228125*^9}, {3.50847565309375*^9, 
  3.508475683078125*^9}, {3.508476223359375*^9, 3.508476248234375*^9}, {
  3.508539453109375*^9, 3.50853945365625*^9}, {3.5085395145*^9, 
  3.508539565859375*^9}, {3.50854018171875*^9, 3.50854019565625*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.50853957275*^9, 3.508539572765625*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJzt3A3InlUZwPHXlVqaaTbT1NKV5kcf05pLzeajs+XU5nQ6J4FFJhhihSFZ
YLwspJBWsISFLMQYLMGQhawEEZZhDMPeLEya2BtDG37ElLIorXyu//2cP53X
q053z+smJdHDb27uuc+5znWuc517m/eJz1x4xZyJiYmpvScmhp///M+lg/97
vD51z/kbpx/bcPq/9p2Vf1z80Ffu+8vUqp/hyVUzvPaopS/+78HxeKL2JdXP
XznDfN9fFn91+PWO+HXni2d4+LPn3v3IS3ui9kXd8/7mpT25YnD6guGPTBc/
Pvfu9avXbe9+fu0L/63X/PHWTYsWPF48/DbrV/+u2fF1pnYU8/xPdN/vgu75
nur+/UyvXrdi5zX7/D71p27f/8Wv+Ezi5f+xmc9nmz0crRU7NfP/h2Yzvs8V
M35/Kt73smVb7j/uz6lf/MXDEU58/iB+u7nPFzO+Iy8bfG/4+Jv+NsN7hM/r
4uvvxfy8icHIjN8e3Y+fO7j+yuEPZD6nG685xT9fdcShTy5+VeelgwNiQF7d
24yvHo7WdafsWcx479X57Bn+wdXbNl+9beQlg58Of/X8vYuZH818vCb18Oku
vz4360PHL7/utcXX7DP8kZEXzzDzvU/xI5uHD7BvMfP/uuKzLh/OyH6dzxzE
crrs9Z3PGDBc+6cmHkYeDJ5aHP/B4vh6xx1QfGQ8rz5+OJwbNfkq86LB0lhw
b0jNeGniUX8uvpCO8LvmwGLiUROPbywmH+pnYgL0X6eGv0DH4145tzjSxVrN
+B9UTHzqTw/Db7OO4ZrWxOubms386u9EwGji++AZZn2f1s23Jr4PKT4oBlAT
3zp++2VvLv5S5ANNPj20+NsxP5r41szPYcXE9+HFjPfh3fOc3I33W4qDazTj
nfvzMf46lte2txazPo4oZrz0byNfaNaLjul6SO8Vz3Nk54Xd+GrWU7tZb5r1
pRmfecWMj47H3azZv99WzHoaeUHl93bxpsmvmnh7e3H8dldrxkfzeVQx600z
/5r9QLM96osiPo8uvjQCWDMemvWovxwL7B3FrLeRTxh8P35D/aOIl2OK2U80
+UbH19ui+Ty2i/d3dfF/bPnx2L4X6RjejZr9X8fjPKbPj4A+LjXrWZN/Nfk3
N+tfM37HF38tJlwznpr8oMkPmnyuY7jnv7OY9akZXz0a15GpL/RhEW/6pPgP
auJr5KO69fXuYsZTM36aeNMxXLdq6ilNPfye4m/GAtDEnyZfzS9m/WnWX27G
S7M+Nfuhph44oZjx1MyvJl9ovr+mXtI8z4nVeOtIV4dqnlcTz5r50MyH5vk1
+UAzP5r92LxFPtffii+gWa+a59fEtyafa/bH9xWz/2jyi6Y+0nwuKCa/aOZP
k391pJf1mvWpmT/N/J1UTHhq4k/z/TXzoZ+LeNTspwur76/5/rl5Hk3+1DyP
Zj408ff+YuJPk480+4Em/jTPr+Pr3q6ZT8161MSnZn5PLmZ6NfGp2d9zs341
46cjnW3S1AOa9XtKNV6aeNDsL5p40Dy/Jh5OLWa/0axPTTzoo6O+0MSDZn1q
5v8DxdT7mnpDfyx+gib/a55Pk3/0qA4emXJUE/+ael1TP2meT7NeP1jM/Gjy
j6a+0r+KL6SJd02856Y+19Tnmvp0UfW8mv1RE6+aeNUnxA9o1nvmI7v1r38S
8396MeOlqQd0hOtizf6k419frtmvNPlBc97Q9A808aNZf4Ni4ld35XUx+7tm
vDXxranfNOcVzfhr4l+TPzTjr3kezfrX1J+a/HdGMfGjOe9qnk+TvzX5IjfP
r1l/mvWnGQ/NeU6T/zXntdysZ81+oRk/zX6hGa8zq/HSjJdmP9Hkh9zkX83+
oxlPzX6gqXc061uTvzX7h2Y8NeOlGS9N/GnOU5r404ynJp8uLmb9acZXE3+a
8ctNvtOMr2Z9auJTM376k/EAmnyjyc+a8cnN/q8ZL816rcfnrGLiURN/mvyq
6TdpxkMzHpp+qmY/0qzP3MSXJr4046WJr9yMl+bzQ6mJL815WxNfmvyuWb+a
+NKsT009qNmfNPGUm/HVxJdmfNvNeUoz3przlWa8NeOdm3ypWf+aejA39UI9
X0uKqR8086OpJzT5QRPvmnpME/+a87hmPWjyrSbfavJDu9nvNPOt2e80+78m
P+emX6+Zb818a/oZmvnU5CfNfGrmU9Pv+3Ax+Uqz/jT1lGZ+c7M+NfOtqU80
+6cm32vWo2Y9auYnN+tPM3+a9ac5z2jO75rx1oy3Zj/V9N/azX5ydmrmRzP+
mvOcZn1p8qNmPbWb+dLkU039qJkPzf7TbtaXZj1p1otmvnJ/IRaQZv4060WT
/5am5vyuzyHgi5kfzf6v+ema8dbkN81452b8NflQU29q5kezPnJzftPU85rz
nKa+0uxXmnymqa8086H5PKeY+kGzP2nWS27mS5PvNP0/TX8mN/cdmv1Mk/80
861ZX5p8qDmf5ma+NfOtvxv5MDfnW/1EzHdu8qVmPWrmu93cj2nWpyYeNOvv
3GL6S5r6RDO/mv1Kkz8161OTTzXzm5v51cyvZn41/TbNfOamXtHxr9dp9j/N
/Grq/9zsj5r8q8mvualH28385yY/aOJBk5/PS83rIZp+kiZeNPGSm/jR1Lua
84kmfjTxoulHavbr3MSLpn+pqZdyEz+a/UATP5r9QLM/5yZ+NPGjqX8195ea
/KCJB/181GOa+ktTX+Wm/v1IMfOr2b8186uZX838auYzN/Op2e8151fNfq+Z
z9zMr2b+NOs9N+/fac4vmvnTrH/9w5i/3PTLdSzHJ9vN/qCZ3/4mXyxLTT2e
m3jS1COa/KLpD2nySX9TX2riVT8Y8dpu4llzHtfsZ5r4zE19qslX7eY82N/U
Q5p8l5t6V7MeNPlNsz4060Nznte8v6XZDzXxnpv9T1MPn9/bxK8mfjX1syY/
6q/HA2riUdNO1YRTf1NP5yZec3N/pYnn3NRrmnhuN/Go6T/lpj7XxKPm/KU5
f2niTRNfmn6GZv/Mzefy1FGfzslNPtXEn47n309T3+eO9Xqwpp7TxKtmf9e8
PqWJZx31zIk6fvvTNPt/f3MfouP8dK6Oemi5jvlcqYn3dkc99dHcrI/cET8f
15xvcke4XaGpbzTrKXfkty/mjo/JKt5W6+h33qBZf1X83aipn3Ts79/IHfny
pioe11XxeHMVj7e0m/Oaju1rg6aey009PvIhMxzlwZ066oV7NPuXjvJla+4I
lwdy0w9qN/mr3fHLH9acH3TE86OafKjpR2nyo477t6d1xOuzmj8Oo6M/80Ju
8uMFxeTH3PxxCU3+y00+7O84rh2uIx7n5Y74O0ZT347P5Gsd9diJuaM+W5ib
fK6pl3WUG2fkjnSyRNMv0hHPyzXn/dzk69ycF9tNvm43+VtH/F+luX/W5GtN
vZ87Pib7m/NAbvK7jq93Y27yuea8rMnvOurhm6v1sb6K/41V/N42PnM+r+J9
kyaf56Ze1PHL76nie4uOeuXe3LxPq+n/VvE/pekPVPH9cLvJ51X8Tlfxu11H
+b0jN/k9N/le02/Q1Me52Q9y03/IHcvxhWo9TFxYzP6Qm/o6N/tJbvobueM8
faDmvJibelzTD9HsH+1mf9DsD5r7m9zU97npr+gIv4Wa+wLNfqLZL3TUU0s0
+0Nu9ofc7A+5qe81+V5zvtXU5+2mP6nJ95p6XXMeHp/jY1JT/1fr4YYq/m+s
4net5rytuY+u4nWD5n2e3HGevKOKpzs19bYmv7ab+jw39Xm7o9/3QG7yd27y
c27q7yoep3Ucj7dr6vEqXndo8nUVn09r8rWmXs9N/m43/bcq/uas6HzADJOf
Nf0OTX7V9DvaTb2uya+5yae56Zdo+iP9TX5tN/k3N/W8Jv+2m/ysyc+56c9o
+uOafo0mX2v6N5p8rcnXmv5Lu8nvmnpe049pN/uDJv9r6n8d6+Pa3OwHmvcX
cpPPc1Pva/J7tb7W5Kb+72/6PZp+z/jM+SI3/aHcnEfazfmiWr935KaftOvM
flrlg8067h/u0uy3mvua3Oy3Ovq1W9vNeUhzHqrywy+q/PBQlQ+2Vet7Ojfn
n2o9P1at5x25Oe/0N/ttu9l/Ne93aM5Lufm8KDX7r458sbfmvKPZf3X0Aw7U
9NfaTT9Nc/7JTT9Ns1/nZr/Ozflo9sx5q7/p1+Vmv589cz+Zm3ohN/c5mn5g
u6kncnPfmZvzoqbe0NQb7aYeyU19ouk3auoPTf2hqSfaTb9xfI7h+Wxu6hkd
+eja3NQzmvNpu+Njst30O/ub83Bu6ilNv7TKl2uq/Lg2N/3TKj+u0/RTNfVN
lR9vqfLfBk09kpv+aG7qB039oKOdcVe7eb9t9ky/VtOvrfLLfbk571f5Yyo3
9UmVDx7OHfng0f6mnqnyx/bc1C/tpl8we6a+qfLJs/1NvVPljxeq/DBxcXEs
nzm56T9o+sGa+kfzPpCmvtH0GzT1jKZe0dQnuakvNPVCu+nvavoJuakHNP3d
3Oz/mv5BbuoDTT9hfOa+MTf9CU290N/UA5p6IDf1gaYe6G/qAx3l9VX9TT9D
Uw+0m/6Gph4Yn6kXNP0PzX7dbvojudnf200/pN3UA1U+WTc+U09o+vftpn+v
4/h+W276Je2mPslNf2N8pr7R1De5qWf6m/5KlQ+3VPnw3nZzn1Hlt62a/kpu
7i+qfDalqW9yU9+8fKbfo7kPyU1/p93UQ7mpZ3Jzv1Llw53tpr5pN/ctubl/
qfLjnJXF1Dua/k9u6iFNfyg39ZLmPkZTL+XmfnzXmfqtv6nv2k29p6nfcnN/
pKnfNPVbbu6HNPf1I0/816YezM37ZOMz9aWmvmw39aOmXmw3/SlNfdlu7sfG
Z/pdOu6jV+amftXUq+3mvq3d9MPGZ+rhdnOfp6mf+5v3AXNTT/c39XW76df1
N++r6Pj/SU29rXmfvN3U3+2mHtfcV+am35abeltzv6jpt2nuDzX9Nk3929/U
w5r6Nzf1bJV/76ry7d1VvrwnN/d7uak/x2fq19y8H99u6tfc1K/t5r4xN/Vp
lQ+3Vfnu0SpfTVf5aHt/U7/mpj6t8sPOdtNfy019qXl/f3zm45Kxmb/fR/P3
Meemns1NfTs+c5/a3/Qj/3fN+aHd1Oua+2VNfZ6ber3dvC/28pnzQm7OD7m5
b959zXlGc55pN/fZu485H+XmvNPfnHc09+3t5ryz+5rz18tn+v+5OX+1m+O5
5jzWbs5juTl/9TfnrdycrzTno93XnM9eueb9jd3XnEd3nTnPtpv3VzTn3/GZ
+6vcvN+reT9F8z6K5nw8PvM+S27ut8Zn7r/azfm93ZzvZ8/0C3Jzf6Z5n1jz
5xfbTX9A875Ou7nP0rz/q+kXaN6nyc39leZ9mmp/3lrtn/f3N+f93Jz32815
v938eZ520w/QvM/T3/QPqv12u+bv/8rNfVa76R+0m/ed202/QXN/VTxBv2H3
MX/+dNeZ95ty88+q1LzvpLn/62/6Ja8c02/ZdebPA7eb/oamf9Fu+huzZ95n
yx3737zc9FPGZ/ots2fev+tv+i+afktu7nNz/wO12rGo
     "]]}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJzd3Q2o3WUdwPHbKiXNsjnzLZsrTWflW3Op2XbmdL7VnE6nFli4BEOssCQT
jIshi5EJNljIQixhCYtYyEoahhXGMmy9oKMr69aaiNOa0kw0q3t+33OeLz63
Hz0ezp3LS3D5xO7dOc/ze34vz/+sZl352YuumjYyMrJ575GR7veXf13eeU17
9LI93qe98fi149vvnv9y39vsR1Y8+MLmy36CRyqPXvqKze//eeqvdv/4zF/2
vGyS+X2/7vmSl3vkkt7v+32zx7fP2Ljm5keL+fv+0Pv9F3e6f3rGxseK+fv+
+N89Mtnz53T/m/Hi2488d+I/f+79/NJJfrz7clZv6/35yqMX9V7/X1Lfuuuu
9fPmPN7zhf/DSyY5Xu7mJ9o8UnvxJLOeTxY/tuHasQ3X7pj/7/j6yCs2+/HU
K/br4u+f7JtXL9153T5/LWb//tZ7ved1Duwu/9KdPZ8zyeyv/vS6t04s6TOp
+fFni/ePDfh7MfuZm/16rpj4/UfxvlcsfuCh2c8Xs/4v9Hx2Z+KHuy+4mPV9
MfX3ui9//b+Kef8jnb6PveHUiVeYm/Xpe9EkE//TUv/mspmH7lj4+mLOg35x
c/cPaNbzDT2fNcmsZ99nTvK3Y4H26nlh51ezu29o72LWu+8zOufFC35T8XX7
dDdAs/77FH+LgCtmvfct3hm/QBOvb+55QeczY90f2K84ftsVbylmv/rudCaC
YeINvLX4qYXLb7p6nY6XO3v/1EdMrP7ymzTnW7Offc/rnBvr8bbU8etv0JyP
3J+PF6Tj+Fw3vfi7sSG5OW/TO5zv03vxdEBxLOe1+plYf018HdD7fad1Ijxv
n9HzKZ14O6cemHhu5/LuX7dcx+rfqr8SG/j21LEc6/UPuy93TBOfBxWTvzTx
2vecznPd9PGIjh9fe3Ax+6vZr0OKv9x9+bs08X1oMedXsx+a/ej7pA4/flgx
50HHy1/d9wmdOK4z3lHM+daHdcP1as1+5eZ86TNjgw4vZr/0F7vLNX54Lz7e
18vH7yzmPOp4O2Oa/ZpZzHnU/D1HFPP+dBzHqzXvR7N/k83vPab3/mYVx8td
rNnv3JzHdkd4jWvi5V3FxEvmIzvfjBeoOf+afK2JN/2DqHeafPjuYvZDkx90
LPc6Hdv9iGZ/jixmf3Qc/5s09UZTjvXFsR9HFZMPNeurWV/N+r2nmHqjWS/N
edSsx9HVemjOZ27qlyZ/avqTY5rNeuqjIt41+avvI3rxri+IDZ9dzHpq1i83
63lsMec7N/la029p8t17i1k/zfrpLC/0TT7UxKMmH+Y+OdZLE5+aeHx/caT/
uzT5UEe63KU578cVE3+a86mJR009O774T1EQNPGl+X5C9fdr8rVm/zTxpnm9
mnyr2W9N/OXm/Wn6oxOLiVfN+283/XFu6r9mvzTrdVIx8aQ5b5r6qcmvH0jN
+9X0X/pT8YI0/Zgm/2q+z6lev2a/NedZM8/kpv5o4kMTDzqWY41mHspNP6ep
B5r1Ojk1/aWmXmvOiyb/aeYJTXxozpcmXvReEQBzi4mX3Jy3vg/urafmvGnW
V5MvdKSf7Zp5RJNvP1jM+mnOm6Yf0uRnTT+o6Q80+VuzXprx75Ri8rcmXjXx
qul/NOdRsz6afu/U1MyvmvXQsf0LNflGE2+5Oc+a9dGcZ83304qJL818qr8W
v0DT72jys6Yea/KxPivW50PFxEtu3q6mXupPxB/QV8Z6aM6fpr/TnD9N/Jxe
THxo8pdmPTTxoX8c719zXj5cvV9Nf6gfjXjQ5PPczKOa+pSb86W/EOujOV+a
/nFeMedJk480+UjTr2vyuT4h/gvNfKeJJ816zS/mPGnyjea8aOZDTX+q+d5J
zfnR7Kfm9eVmvfQ3It40+UCznpr406ynph5q+glN/6R5/7k5L5r7Ck19qNdr
QTH5WNNPaNYvN/GniT9NftWsn6beaNZPk1818aqpn7lZf83652Y/NPlTk680
66+pN2cU/yLyi2b9NOuXm/XU5F/NvJqbfk6TnzTrqVk/zfyZm/5KU58166mp
h5r+SxPfmvyiyX+a+8OFxcSvpn5q1k9zvjX9pWa9NPGoyV+afK6JP03906yP
pv/X5ANN/6xZL01/qMkHmnyg+X5mtX6a/JibfKmJP02+16yv5vxr1ldTPzXr
q6mXmvXUrJ8m3nJznjXxpvl+VjHznub8a9ZTc/415zs38arptzT9j2Z9NfGr
WV/NvKQ5/5r+X3P+Nedfsx+aeNfsj6Y/0+yXZn808a3ZL018a74vKma/NPlZ
sz+aeNfEuybeNf2pZr809U+zH5r9yE2+0eSXdrM/mnlBU98084om/2jWOzf9
+9nFnA/N+dD0C5r4zk3/pekfNOureb6niXfN/K1ZP02856af0MS/pv7lZv01
8a+5r9TEvyZf5WY/zqn2Q7Mfmn4kN+dDk790hNc8zXnR7Gdu+hdNPtPsr6af
0ZwfzX5r8plmvzX7q+lvNOdHs9+a/dXkN00+05GOdmi+n1tM/tL0P5r91OQ3
zX5pzpsmf2nqt+a85ab+aPar7/17+6HJZ5r90Dzf0pwvzbyYO9LVBn1cbHBu
9kvz+QbN/mnyY276M81+a86v5vt5xT+N/c7N/mrOr6b/1fHjx2vukzT9hub8
auJBU88095ua/k5zXnOTn3MTH5r4yM3zG835zf1kxM/gJh9o4kmT3zXxpMn3
uYmn3PT7mu/nN5v7wNyx3TNz0z9p4k8TX5r40tSHdpOvNP1WbuqLpr7kJp71
d6J+aO43NZ/fyE28afoxTfxo+mVNvGjiY3ATP5p8lJv40vR7ufufM+yb+qW5
f9LEjyZ+NPVL029o4is38aOJj3bzPDk3+U7Tj+hY/hW56T81825u8pumPuYm
H+VmHtPkq9zEU+4vRXzpf0Y85eZ+PjfPC+t4+mgx8aOJH02/o8kHuT8WG5j7
kNj/4Zl+SRM/mvsQTT+bm3jS9LftJr40n7fMzf1Vbp5naD6PkZt40j+Khk7z
eQxN/5ybeUgTT5p4WlxMP63pt3KTnzT5Sf828o8mv7Sb+NA8H9XEiyZeNPc5
uemvNPlGEx+a+UjTf2viQxMPmnyjqW+aflpTr3LTX2v2X3OfrKlXmu8XNJt4
0dQzTXxo+nPN8+jcxJP+eiyIJp9p7qc0z9/aTT+l6fc1856OH1+u6ZdyE7+5
mQdyE9+afKeZJ9tN/GrqZbuJb828qZkvc1N/Nc+bcjOPtpvzpDkvmvOgyY+5
+b4kNfcROtZ7Px35Zbrmea3mefzg5uPNmvOm4+3Myk3/oGO/j9b0EzrC50Qd
b+d0zXnU9J868t8izfMoHfVwiaY/0czfOu5nP95uzvPg5r5HR3hd1W7yg455
4xpNftDc72ryQ27um3Tcn9yiyR9V/K7MHf3AbZr+Skf+X6Wpn1V8rqni884q
Hu+q4vHuKh7XaubHKh7X6wi/ezX3k1W8bswd8Xu/pn5X8fyzKp4fzB3Ha5Nm
ntARXg9r8lfuOA+/q87Dlirex6r43arJh1U8b8sd8frE8Bzz4tO5I96freL7
+Tr/XlhMP5I74n1vzfOAdtMP9z0yyXEepmv6IR3n4SBNvs5NftbkZ83ziNz0
3zrif267yd866vUCTb+k6Zd0xOuS3OTz3OR3Tf7W3FfpiOdPavJz7niedFVu
8nNu8rXm/qPd5HMd90vX5450cqOmH9TMO5r8ruOvW5mbeaiK79uq+L69iu9V
VXyv1tH/35Gb/N9u6kEV7/fkjvnh+5r+VJPvc0c5uV+T76v436RjXn04N/lb
M99X8T3W7oj/rVX8j1fxvL2K3ydyc99ZxevTuemfc/PPnzX9tCaft5v7Cs23
i5pNPdDUA03/njvOx36a/J6b+VfTj2v669w8r8pN/52b/K8jfOa2m/zfbvp7
TX8/uKM/Ol9zH6SpJ+2mvmjqS27qi6Z+aOqFpj7kjnC4pngkXs7nNPdZOs7L
9Zp+vt0R77do+nlNvtfke819WLupB5p8P7h5nqmpB5rnSe1mXtDMB5r5QMc4
dV9u5gPNfYam/9f0+5r6kJv+Xsfn77e0m3rRbuqHjuO8TXO/qKkXOpbv6Sp+
d2nyeW6+lqaO+J6Wm3yem3yuuZ/R9POa+5p2c5+j6fdzc3+j6f9zMw9o5gFN
/Wg39zmafy6qqSeaeqJ5vpib+yBNvWg384amvmjqRW7qR27qSW7un3S8/WWa
epGbeUVzf6SZVzT1JTf3R+1mPsnN/ZKmHmnqj+Z+ScfzgxuHZz7vUp3vm3Nz
n1Wd9xW5qX+5qX+aeUdT33JzvzW4ud+qzuc91flcl5t5Jzf3Y+2O5yv3tZv5
qTrP91fn88HqPD6Um3mpOl9bqvM1Vp2vrdX5Gs/N/ZZmHqrOyw7N5z+q8/B8
Fc8v5I74fqmubxc3m/soTb1qN/PJ4KZ+5aaeaeYdTf3S1C9NfcrN/Va7eX6Y
O55fnaipb5r7ME09mzpT/zT1T0c6W6SpZ7mZf3JTz3JTzzT1bHAzT+VmnsrN
PKWpZ4Ob+zfNfZumPuXm/i13fI3m5r5OU68081l1Hldp5qXczEua572Dm/u3
3NSvwc39naa+Ved1fXU+N1TnaePg5r6vOn8PaO7/2s39oGa+y02908x/ubk/
rM7rlur8jVXnbaum/uXmPk8zz2nqn+Z+LnfE+7RLipnPNPNZu6lvuZnPclPf
clPfNPd5uZnXNPUvN/UvN/VPU98GN/Od5j4xN/Nfu6mfmvtEzXw4PFM/2019
zU29bTfzqGb+1Dwf09RnTT3W1EPNfJib+XBwU19zU2/bzTypmSc186RmntTU
Tx1fo5r5T3O/WeWTFe2mvlbnf1Vunm8Nz9TrKn+s0dTfdsfn5+7OzX2oZr4c
nqnXuZkvp87c5+amX8jN/W5u5tnBTT9R5YdN7aZfyE3/MLjpL3LTb2j6DU2/
UeWzrZr7ZM18nZv7ZM3nQXLztSw198Wa/iM3/cbg5nnh1Jl+RnP/rOlfNP3K
4Ka/0fQzmvle089o7ptzM59r+gtN/R/c9AOaeq6p57mp75p63m7uk3PzfFLH
eVs2uJm/h2furzX9RLvpF9pNP6HpJ3Izz2v6DU2/oZnn2x1fo+2m36jyw8rh
mc9z5+Y+u93cd2v6n3bT3+hID3cMbvqhKt/cmZv7CM39QrvpZ6bO9ENVfluv
6UeqfLWx3Xw+dXjmvl7H57M3aT6vquknctNPaPqHKt+MDc88D9Dc/1f5aVtu
nnfvPvP8QdMPDW76pypf7qzy5bOa5xu5ue/JzfOOqTPPT3LzdWlq+j/N/55A
u+kP283zmlfP9ItTZz7vnJv7NM3zIU0/qeknNf2kpp/U3I8NbvpPzf2Yph/V
3G9p/v1Zu+k/h2fur4bnyP8LNM+bNPdZ7ebz4O3mPiw3/XFunl9p+tfc9LOa
+zXNfdjwTH+7+8zzruGZz69r+u/c9OO5ed42uOnPh+f4GtU8n8vN/eOeY+aN
qh6sbDf3oZr5IDfzQm7mg6kz88HwzDyRm/miqidrc9Pvt5vP6wzPPC+t6te9
uZk/cvN5n6oebdTcb/7/mOe1ufn3x+3mvnZw8/mndjNfTZ2Z19rN/XBu5r12
c39c1dPtg5v5anAzX+0+8+9tBjfzXm7mP83z/XYz/+255vMHueN68qXcfF7B
/59V/v1Qu5kHXztm/svN5y92n5kv283zkHbz/EMzr7abeXbPdTw/ntVu5m/N
PK35vMnUmfn81TP3Abl5XpWbz8PsOeb52NSZ+4o91/zvL+bm+WDu/wDUfbWz

     "]]}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJzt2w+on2UVwPHrSi3NtDXT1NLVzD+Z05rLmW333vlfm3+mUwssNMEQKyzJ
BONiiCHJYAULMWQxMGEhC1kNlrGMwhZmFlNQbLVWo2lMKYmp0X7n+97ni892
8Onl3uukRBwf9+/+nuc855znvO+defUXLrl22tDQ0GP7Dg0Nfnz1P1cO/097
7Ir/2qftPfu+TVtWLtith/r6wd177PLhjXf8YsdjV/y0zUP1zy/p/ryfp/7G
4Jcf+avu99e+7NUeu7T783/T/XzlscXDy2adu/Pfx4v5+35fvGnLjHX33PZE
8eBnZ6x7uvvzdjV//h9277GLhxfMGfyfTcX8/X9q9l8GX87yzd2ff3H39f65
mK/3r92vv2g4/rrHtu7eQ7ua9ftb8dNrbnhqzQ3bOi/qPu+zC/YKX/Cavm35
4u037vf37vefN3zw4MtfvL3R53brNe5zKp/9Gj5rF39u1YF3/XPF8z195i5m
f15Izcdp90E7//TV8/9RzP6O+4zha269bvAVFMcvn/Ni8Y8G2/VUf+9/1aL1
G477V+eFXTzsSL3zLx8scDHx8lJxfPkzXu482sVHbuLl38XH3zxv5x8xNDzu
wc9etWiv1OyPZrnGPdLtz7Rmfz8OlGa/NOfxTcXs35uL2T8dH2fT3qnZz32K
2Z/cLw5++cZ9i9m/txRzvsc9PBw/ffNbiwert36DZn/3Kw4etn8x+/m2zvOH
D9+2cGdI5mY/314cvEr/YLBdq/Xgq5u394HF5IODijnPmv1/R/GX4vNo9l/z
+aYXs7/Th8lXp3ef953dz5+6i9nvcc8dfmnw09s0+z8jNfE+7jldfOgz4oAf
nPrKnX/bwmtyf34QHmv012PB31VMfOnvxQHOHcdptf5Z7M8hqak/mv07NHV8
+bdq4lWz3/q8OKDvLv5a7K9mfw8r/m4EYG7yl+a3H17M/mr264jUF0YAv6eY
+H9vcaTHpzTxfmTxrwecrZ8dHKdVmh+PKt4nwkfHcl6nj4r/oSO9LRv3h7v1
zs36a+JxZjGfV1OfcpOfNflPs3/vKyYf6+/EgdfEq2Y939/s3w62d6GO43OD
/mPEs+bHWcXkW008a+qXZn015VNHep53dPGlkd8066fJd5r11Jz/D1TrqyMd
3aM575p6oznvxxQTr5rzr6lPmvU6tjj+uvma/KBZT836aeLxuGLqgabe6c9G
POr4eGs063V8MflCE2+a9dL0B5p88sFi7gOa+NLkG015OKGYepKb9dLkJ815
/VDxJ+M36EinK3J/JeJLE08npqbeaOq/juW6UROPmnypWV9N/M2u1ldTrzU/
nlStnyZ/avKnZv81X6/+YRxozderyT8nV1+/Jn419V3zeXR8uas0/Y6ufySe
NPlVk19zE1/66KgnOj7OfZrzqjmvHykmv2nyr+bzavob/Xw0sJr8p4nHOanZ
f03+0Zx/zX5r+ldNP6H5/Jp40L+M/HBKcYTHbM36aOIhN+unyS+aeNHxx6/X
5GtNPGnWb261fprzrek3NP2v5rxo1kdTbz5aTPxozo8mv2nqkebza+qnJn40
5+XUYsJFU78050lzXjT5Q3N+NOdn3Cd19UWzXjq+3C2afk2zXvOKo7ws1OQb
Tbxo6qWm/9DET27qmaZf19Tb04pjO47T34z11qy35rxq8rdmvTX3PU08avod
TTzqM2M9P1bMedXUH/3p6D/01bGemnjU5DfNemriU4/fW8fNfeP07v+f0K2n
Jn4151eznpr8r4lnTX+riVd9SiyIpt/VEf6zPl78RKyfpj/R5Df95fiAmnWY
X0y+0t+K86mJj9x8Pk2+15xHzXnUnEfNeVxQzH1Wx/G8RtO/auqh5nxp+ovh
Yu6HurseV/GRm/yam/qkOX+a+qnppzT1QVNfNfGkOa+a/K2pt5rzojnPudmv
3MTXSLWfmnoxUq13bu5DmvqlqSea/KKp/7mZx45U+6GJL038j1T7o4m/kWq/
NOdlpNovTX+k6TdGqv3IzfqPFlM/NP1UbvLBaLX+mvyomQ+MVvsxWu2HJl+O
VvuhOR+afKbJr6PVfoxW66+pZ5r6rOknNPVmtFvHY7vzpak/mv3T7Fduzpsm
P2n2Mzf9pub8aX5c2GzOp+b8afKdZv6iqReafKepl5r91uyv5vxp9ldznjT7
k5v7T7vJj5p+R7N/mv3T7JdmfzT9xxmp2Y/c7M+4Z3X9gab+aPKlpp/JTb+b
m/OrOa+afKm5X2j2UzP/1JxfTb7UnE9NvtTUO8350+ynZv6j6Q/OLCZ/avJj
bvJlbtZbky815yM38yDNfUSznpr11OQ/zXpq+mnNemniX5OPNOt3VjH9lSZe
cxO/mnqjyT+a9dTkn9zkI03+yU0+0tSf3MS3Zj6oWW9NPdHkI03/rMlPOpZn
o2a/ctN/a+6bmnnC2cXkJ028a/ZLs1+5iXdNftHMRzTxn5v+TbNfmnykOR+a
85Gb86LJR5r91JwfTT7KzX5qzpcmP2nOW70/5xRTLzT9nea8tZv8pdlvzXnU
7K/m/Gn6QU090Zw/zfnSnC/NfCg3/Z2mP9DsV7s5T5rzlDuWf9u4j+r6A02+
PLeYeqM5b7nZD836a86Lpl5rzotmvTX1RXM+NOchN89n200917x/ocl3mv3Q
rH9u1j83+TA3/ZwmX55XzP5p5heafrrdzM804xXNfmvyqSafauJBs/+afNlu
4iM351UzL9XczzT1UnN+NecxN/HTbvKvpl/MTbxp8rUmX2vuB5ofzy+mP9KR
Ho/MTX7WxIum3mrys+a+rsnPucnXmvjJTTxp5rua+VZu4kcHl2viQVN/Nf2S
Zn81+5eb/dQ/ifygOf+a/H1BMfczzX5p9kuzX5p+VrNfmvOuqZ+a98ty0y9p
9ktzX9P0S5p5lybfa+prbvpdzX5p+iPNfFxzHvVXY7/Gfejwy3HeNP2SZr6u
2b9PFLN/uam/mv3U7Kfm/q3ZT838RHP+NPeV3Mz/2839UVPvNflaU+81+62Z
97eb/dbsb272W/84zqvmfQtNvdfUd83+a+bRi4rplzX7rTnPmv3VnF/9eOx3
bva73eRjTX3PTT+t2f/c1HdNfOQmX2jyRX/Tv2c+qItHTf+oT4oBoeY+rYk/
TX3QvE+Tm3jS/HhhMflEE1+5iTdNvGn6x9z0/7mJx9zUk9yEk47lX6yJR038
aeIvN/VHE1+afkATD5r+UXNf1+Qfzfts+sSIF00/qekXNfcRTfxo+onc9IOa
+qTpL6rPP+2i1JGv983NfUQzH8gd6zs9N/3quIe6+pg7lvcIHR93po56ckzu
aF9OyE286+gv5uaOL//0dkc8jGjqt6Z+6+hfztfk7/6OeniRjvZiiea86ah/
12ru+zri73rNeczN+dQRrzfpiNdbNP187vjvmCb/a/rLdkc+/bamPujIp/dW
8bciN/2NjuN+f7u5j+SmH9aRjh/MTb+sI38/lJt6V8Xrw5r6lzvy/yM6wutR
Tb6r4nFj7vjlT+aO+H0mN/exKr63VPG9Vcf95jlNvdbMc3Lz7V1VfO/Q1PeL
i5m/6ojnAzT5VUf8Ttf0Azri9xBNPtX0n5r5rI56d7Imn7WbfKfpBzT5TdMf
5Oa+oslfmv4hN/dbHfHwGR3zlmtzk/9ycx/W8eV+UUd83KTjuNyi479juSNe
btfcr6r4ubOKn7vaHfG1tIqvZTr6y7tzkx+r+FqpyV+56a9yx3Vibe745Q9V
8bc+N/lM059V8bmh3eSz3BG/v8vN/VTT71XxuknHvGxzFa9bqvjcWsXjds23
w2ry1cSZb+e8pJh8l5t+U9NvavJhbvpLTb+ouQ9p8p+mX9TkQ838PDfzGh3b
N1czP9XkS02+1FFPz9LkS01/pykv/U1+zR3xuUSTX3NH/H5Kk281+VNHebpe
M0/Q9Iua+YKmf2w390Md/x1rN/fJKn7v0OTTKj6XafpNTb+pya+5ua8WD5F/
NffXiTPz8v6mv9X0o/1Nv6rpN3OTr3Wcn0c1+brd5G9N/u7veB/7SU3/qulX
Nfd/HcvznGYeoCPeX8nNPGBxavK1Jl/reB53gCYfa+77mn5Uk69zk781+Vsz
P9fc7/ubeUC7mQ/kJv9r8r9mntbf1A/NfEEzX8hNfdHUF838QJPfc5Pvc/O8
Lzf1ITf9tWa+0G7qiaaeaOpFdR5u0/G8/vZ2Rz9zZ7upD+2mfuSO43N3dZ7u
rc7Tytzk7+q8rMpNvs7N+85VPD+kmT9U8fxwuyO+H6nie4Mmn+dm/qCZN7Sb
/l2Tz3PTz+cm/+emHlTnY3vuOA8vVPG+o87/lxbzfkpu5hea/lwzv8jNPCM3
8w1NfWg39SM382TNfUCT7zX5PTfP83KTv/ubfK95XTQ3+V3T32vmKZp8npt5
iiZ/a+YnuZkfa+Ynucn3mnyem3mLJr/nJt9r7gea55PtZl7TbuY31flYmpv5
jOZ+0N/Ug9zcBzT1oTov9+m4P9/f39STdsf5fKA6j2vazTxJU5+q87Y+N/Wn
v7mvaO4n7eY+kpv7RrupX9V5f6a/mV9V+WJzlR+2aOZXuZnP56beae5DE2fe
/9D8c1mzmY9p7lOa+ZemnmrqZ7upn5rnA7l5n0DH+Z+puX+1m3qqI52crJmf
5eb+pLk/aepju7kf5Wb+pqmfmvqpmY9p6qWmXubmfjR5pv62m/uWZj6Xm+e9
mnrdbuZ97eb+lpv63t/0A+2mX9DcFzX1vt08n+lv+oXqfC+vzvfdufn+yOr8
r9Dx/tBKzbyv3dTv3NTzKl+szs3z7tzU+yqfrJ080z+0m34iN8/XNfU/N/fZ
Kj9t7G/ut7npFybPkZ435+Y+XOWvrZr7cW7mp1V+2p6b+3O7uV/n5r69pNn0
C7npHzT9Q7vpHybOzIP7m/mxpl+ZOjNPyM08QTNPyE1/pOmPNPPs/maerZlf
5KYf08wz+pt+rd30c5p+rb+Zj2j6O837KJp5d27m35rnnf3N+3YTZ/q9djOv
6W/eD9TMczT9YH/TH2r6O03/1W76s9z0a5r5fW6e97ab71er8uPS3Mx3ps70
h/3N84WJM/3nxJl5VpWPV1T5eGV/M/+q8vH9VT5eVeXfB3LT32r62akz/XKV
r9dW+Xpdu3m+026e/1T5+2FNP5yb5z+a5z+TZ/rtyTPzPM3zqdz0z1NnnmdV
9WLzxJn+Pjf9fm76/arePNdu+n9Nfz9x5v3h3Lxf127uF7njffpXqvo37fJi
nu/1N/eR/uZ5Yru5v2juH+3meePrZ+azmvtHu3mfpr+5z/Q395/c3H9yc//R
3Gf6m/vP5Jn34zXz6v7m/tRunidr7k+a+1C7o96OTJy5b+Xm/qWZr+fmfdX+
5vn21Jn5f7u5n2nuW7mZz7eb+5nmfjV15nl8u5nHv36Of8Y0z/cnz8z/c3Of
bDfvE+TmeUFVD5dW9WlZf/N+2tSZ++ieY+6z7ea+OnHmeU1/c7/tb+7DuXnf
o6qvq6bO3Lfbzf24qsdrckd9XlvV53Wa71dqN8+DJs/crzXfD9XfvM+y55j7
+hvXzAPeOGZe8X+/Xub57Z5rnh/n5v2x3LxPNnnmfbR2M2/SzJs076dNnJlH
9TfzJ837bVNn5lV7jnmfb+rM919Nnvnnikkz7y9qvj9MM5/Lzbxu8sx8T/M+
Qe7/AHwgEwo=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJzt3A+o3lUZwPHXlVqaaTbT1NKV5p+sqU1Ts+1dM/8357+pBRaaYIgVlmSC
cTHEGC3BAkMWshCWYIzFZTEaxjIWtrClYIOJ3VjaaEpqKZWt2vt833u+dObD
Tj/ueyfSJbh8su7ue85znj/n95uzrvnCJdfN6PV6G/fu9Qbf//vrqv7//Rry
2JU7+Yw9Z6+YePr+ea/uKxKP494V/SfuXP+PjVf+dPjPF/+PvrzypcOf//Pi
bwz+8RG/bHNvFx67ZPjn/bqbe/U/v7h/91Hn7fjPY80efLqZa598dfcuHv78
3xXPmzP4byZe3WOL+s/MXLvs9nu2NJv1/cPw5y3qL31p+aq5c55JfFHlhTt5
8Nsvu/2Pu/S/4+vCfvz6G7fu0vz/Lxju35+Kn1x94+bVN25LfN5wPZ8d+tyd
zPr+OfE5lc/uHzRYvkufH/qs4frn/tyD++9YoheazY9/MTX795fiA2ID/jr0
gsrzK/eH+62vve36wW9QzH6+XLzv1QvXbTjub8Xsh45/fMvfU+/4YYP/R7PZ
v1eK49ed+c9i9k8PVuemff6V+oeD5V2l2b9ef9LH33L6jj8i9+CnXb1wj2KW
S3OeZ/T3CJ/Z/0EEeG727w3Fr+yI5kO3afbrjcXx4+/W7J+O5T59z+Hvc8Zw
//Ya+rT+92OBNedv7+KXB//zJzT7/abiHb/cgmtv0+fHB35zMedxn2L2c9Kn
7uT4nx+6b2r2f9Jz+ocN/vjr35L6k/EL7jf0yTv585sHP1ATH28tJj4mfeLw
vO9fvE+sxwHFR8Z6aM5D7ti+o95WTDxpzr/+UvyBmvU9sJh406zf24vj496o
Xxj8ces08aY5XzOL4+Ndn5v402dFAjmo+KpYf8365/567Mc7iolfTfzmjuVb
pX81OA2zDx6ejxOG+6mJfx0f70FNfjikmP3U7N87i8l3+muRH/T3IuAOHf5+
xw7Pgya/a+L/sOL449Zp9k+zHYcXkz/0RZEf3jX0Uf2vDNLbRO7YjqvfXcz5
0KzvEcWxXU9o/vwji1lPTTxpzpMm32nysY5f9+nc1F9NfM4a+shdmvOqWT/N
fmvOr45fd0ITz+8p5vxq4lcTD/o3g+1e8N7i30f85ua868l1mDT5XbMfmnjX
lGfNeh1dfFkEqOb8a9ZLk9805/99xeQ7TTxqzpP+UfyCmnx4TDHxqskHmu/H
Fsd2zNXEr6b/0MSf5vMfV33+3MSLZj2OL/5mxI/m8+cmP2r6D03+0T+L9uH9
xcSbJj9q+gU9mecmTT7S1E/NemrOu2Z99SmxYZp41MTjB4o5r5p+oN3sj/5y
fABNfH6w+NvxAXSk7836FxGPs4uJR0291pxnTb+oyf+a3+fEan018aGJD03+
0Zx/TXxr2s2Tijlvms+nqZea9c3NPKLJr5p41LHcqzX1UrNemv5d8/3k1MSz
Jp/rSNc3afplfXTEt2a9NeurWd8PFVOPNOdTk381+U0TX5r40rEcyzX9WW7q
veb7nGLiUVPvNPVGs165Ix0s0+QHTT7T9Kea9TylmHyh4x/P1qxXbtZPE6+a
86qJV8165iZ+NfVBE8+aeNZ7xQKdWu2HZj80+SE366+JX81+aOqx/nEcUE1/
o9mPDxeTL3IT35p+WbMfmvyhWV/Nemrmw9OK6Zc08Zub864jvFZo1kezHpp6
cXr1eTX9hSY+NfGp+fyaz6+JL03/cUYx/ZCmvmg+vyZ+NOuhiZfcxIumn9fU
m48Ukw818aBjOe7R5DvN+dP0N5r4yE28nFlMv6OZh/R3I6A19xma/KfpjzTz
kGb9NPGlWU9NftTkx48W0z9p6oumX9LUb83506x3bvKjZv0186nm+9xq/TXn
VbP+mnlCE7+a9df0S7nZD83652a95xVz3nWE1wIdvFZzvjXnW9MP5aZ+a773
izn/mnqi6e8050+THzT5Kjf5SxNPms+rqa+a9dfUJ8350Myfmvynycea+xxN
PtJ8n19MPdP0j5p6nJvzp1nfdlMvNOutyY+aeNasr2b9NPVD039p8o0m32ji
62PF9Lea+2zN59P0L5p8qjnPmvjS9Oua+NLkL816aOZpTX3X5DNNPGrmK816
aeYBTb3RfF9QTLzl5vxq4i039UuzH5p6oMmnmnjT9AOa9db0l5r6oDnfmnqt
ya+a/KY535r11JxvzfnW1JezqvXSzIOaeqOJV01+1MRvbuJZkx9zc7+t6R80
8axZ/9zUl9zcD2viW3P+NfOK5j4nN/H88WLyqaZ+auq/Zn808azZD836a9Zf
kz80/UJu8klu1lOTLzTxrol3Tb+kiXdNvGvWX5OPzy4mvjX1XrOemvysiXdN
vsjN+mvytaY+aeJTky80+UJzH65ZP028avJHbtZX0y9o8ocmfs9JzTyT+ZBh
fdTshybfaOZlTT+gqf+a5y+a9dbEqyafaOJXs/6aeqiJZ01/oekvNP2FJt41
9VOTbzTxn5vzoMk/mu/nFlMPNPlHs1+afKOZp9vN+dKcL02+0tRfzXnS1AtN
Pdbst2Z/NfuXm/2c9AHD/dTsl/5qnCfNedKcp9x8P6+Y+UqT3zT5TfM+g6Z+
6G9FAtC0D7k5f+3mfGr2r7vZb009ys1519zXaPoFTTxo5ksd270hN/uvyaea
86mJB02/lpv4qPf//GLyryYeNPfBmudvmvOpOZ+aeqbZX02/rOkvNP2yJj9r
9iv3Z+P85mZ/NfOLZj8151lTLzX5WLOfmnys2S/N/lxQHMt1hGYeyc36a46z
pt/IzX61m3yrOX+a+qo/HflWXxP7kZv7Sk391OyHJr9q7jfazXnMzXnU7J/m
vOUmH19YHB9n/9z095p+SBMfmnjQ9Eea/kgTH/q38QMn3Rvub272V3NeNfOX
pl/S9Eeafl9TT3Oz35rn45rzqNnP3JxP/ZPIt5r+SE++lztp9vcTqdlPzX7m
pn/S3Idpzq9m/3Kzf5r6qKmHudlPzX5q6qNmPtHst2Ze1uyvZl7R7K9mfzX3
45pvC4vZj9zUQ0091OyH5nzlZj7Uj0V+1uyfpj7mZt7Ozf5o6qFmPzT9i2b9
c7MfmvlR09/kZn7UvB+iqZea85ab/buomPqpOW+a/jY3+6c5b5r+VpM/202/
q9lfzfON3JzXdpOPczPvaPojTXzoZ6NAac5vu+mnNPOsJl408aKJD839cG76
5e6O9ZmxqJj4ajf5RJPf203+yR3HYZYmP2n6AU18a14n0szn7Y7jdWZu+g0d
4T8/N/2rjvxydrN75FMd9WKRpn/VEV+LdfQDn9LMJ7kj3q7T0R/ekJvzlzuO
3825ua/QzEM6vsY0+T839xuaep6b+p47wvNeHfF6X+748ffnjvh9QNMf6giv
cU290pG/13Q380XuiO+HdMTvw5r6mDvC6VHNPJk7uKmKx6c0+VHHPLaliten
dYTP1ipet+no75+r4vXF3Pz1qCo+t2vy6cXF1G/NfaKO+NxPU89zkx9zkx81
+XDqHPXuJE3/kJv8mJv8qMmPOubXC3LTb2jyn2YeyM08nzvmpes0+U7HfHxz
bvKZjuNxa7vja6zdsfx3VPG1VEe9vit3xNt3ctNfa/qn3OQ7zXyk4/71Ac39
RxVvqzT5sLtjO9bo+PEPVfG4rorHhzX9nI56/GgVf49r8lW7yWe5md9zk980
/Z7mr5fmZv7IHcdjexV/vUtS89chNf2jJv/lpr/UUY8P1hGPh2vyoY54nKUj
/o7R3P/riL8TcjPv5qZ/1OS3dpP/ctMPTp/Jt5r+U5NvczP/5aYfbXecl89o
8nW7uX/XMY7ckJt5U3MfkZt+VpP/NfdNmvlUk781/Wx1fpZU5+MuzX1/dV7u
yR3PM++tzstyzfMCTb+am/yto39Yqelvq/Mz3m7yt6Zf1fSr1flaV8X3+iq+
N2j6UR33i5tyk79zx/Hdkpt8rcnXVTy91G7609zc11fxN+PS1PSvuSM+985N
vm83+b67ef8tN/cPmvqhqR/dzX2Fph/X1B/N/YWm3mj6b0290TEPnqqpP7m5
v9DUn9zUA83ff8tNvdDcT+Qmv2vyuyZf56Yf1+RrHefpi5r7iNzk69xxfm5t
N/cX7Y6/n3lHdT6WaO4vNfcXuenfq/i/Nzf3F1W8rshN/q/idWVu8n8Vz+O5
ue/Q3F/kph7kpj7k5v6/iv/1Vbw/UsX7htGZ+2HN/Uh1fjZX52dCMz/k5r6k
Ol9bq/PzfHdzf9Ju6lVu6ld1frZrvi4rpp5p6pPmPkYzf+TmX8eRm/mk3dQj
TT3R1BNNPdHUk9zUk9zUF0190dSX3Nz3aOqL5r5HU180843m9U/N86V2U380
90PtjvBa1G7mne5mHmo391eaetlu5qHc1FdNfdW8D6Gpn5p6qamHuZmHuju+
xjTPhzXzVG7mqyofLKnO/9J2M49p6q9m3tLcp1Xn/752M6/l5v4tN/U8N/dz
uZn3qnyyUnN/V+WX8SqfrK7yx9ru5j6vyifrNfd11Xne2N3c91XndZOmPlfn
cUJzf1edv63V+duWm+cXuZkPu5v6227ep67O6/bpM1+Xp+Y+MjfzraZfyM38
2m76Cc38OnXmeZGm39C8v56beVhzf5qbfkRzn9puns9r+o/uZt7NTX/S3fQz
mn5G08+0m/la0890N/2Jpt9od7xvtrjd9Cea/qS76Vdy8zxudOb+oN3cL2ju
g9vNfbGmf9L0S+2mP6ry35jmvnn3mf6ryqd3Vvlx6dSZfkxzP56b+/Eq3y3P
zf245j6ku+mnctNfVflzVZUPx9tN/1XlyzWjM/1alU8fys39fW6ez+bm/iZ3
5M9H2s39TLvpN6v8vLHKv493N/1mbvrPKp9O5Ob5hOZ+SNOfjs4Rjs9p7ofa
Tf/abvrX3Nw3Vfl1++jM1+Jmc7/VbvpbTT+r6U9z02/qyJ8Hap63aPrP3PSb
ozP3aZr7tNz0s7m5X8vN/Zrmfi03/W+76Xc193Htph/OTT/bbvrZ6TP9cm76
Yc19oOb9hXbTH7eb/nh0pt/Ozfu77aa/1twH5uZ+sN30x5r7Qk3/227646kz
/bOmf546x9dYbvrj3PTH02eeL+bm+WJ3cx+qef5Y5e9l7eY+NDf/vogqX6+Y
PtPfT52ZB6p6snL6zLxR1aPx6TPzimaeyM3z3NzMC1U9WT868/xY8368Zj4Y
nZkf2s3z56rebMrN+/q5mTeq+rJFM2+0m3khN8+jq/rzYm7+vnNu5oPcPI/u
br6uSM2/v7vd9PejM8/P2808oZknNM/Tc3O/PXVmHsnN83nNfKGZL7qb+UMz
T2jeD2s380e7+fscrx8zH2nmn9y8v6C57283zwNyR72Z3928D6GZb6bPzE+a
9yVy8/xBM67mZn7RvA84OjP/aOaf7mY+mjrzPKLdzFu5eX9D8/6GZj7rbua5
7ubvS43OzHfdzfuZVT0eazfvo0ydeX5S1eM7p8+8H1PV86Xt5nlMu5kf283z
m9zMm7mZL6fOzKOa92/azTyZm/dx2s38qJnvqnq6qruZ17qb+a6qz2uq+rv2
tWPeN9p95nmYZp5tN8+3qnq/od3Mr6Mz8+vUmfl2dObf16OZjzXP40bneJ/i
qdzM39Nn5vvcvP/Wbp4Xjs68X5eb9+t2n7mv2H3mvkPzvl938/zz9eP/AJTM
opg=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJzt3H/M1VUdwPFHCq3MJMQ0tNDSFDNFQxIzuITgzwABCWuzprnZHNUsl7XZ
ntkczc3clM3maM7GRm5PazRHuZjNaDSylWVDF85RhjaRQkszjBn38/5y3vPQ
Z57uLtUfOdfdSx4enu85n1/n3EvHX/nZxVePGxkZmXPwyEj/9dX/XN77v/+X
vPzVHv3ofj5n/Olrt21fM/tfeuTf9Oiy6tcrj17W+b42j9S/vrS3ZeWm3Q8v
/1H36/ubr/9J9/VLel/r//KUn3Ve3H39Lztf+pq+/YQL9/776+77Vx5dVP36
sL1wP/N8v+m8oLdt+6QNq296NDXP/9vZr8Q/l/T6v3vShseL+f6/bzZ//h+K
b33hnnWzpj/V/XkXd3/+04kv2s/8fM+k5ud9tvOFlS/o3XTnkl3XvelPqdnP
P3c+vzd7ev+/7Oo8v/fpscP3PsJzxTzv88VP9X/cO//SeV7l83oTYgH+2nlu
tz77PKf3/RVb16/Y+mIxz/+34isWPPjQ1Bv+Xszz7079+Pr+N3y5+GNTJu+Y
e9We1Dz/K8VH9n/8JSM9PKt3yg0z9/7EI72Dwud265O7v7pXLDiomPXTrN+4
7vuf0/t2PLCOP36X/tXy/g/8uuL47be/vpj11PHjbhtfTPwdXPytvdqyUv98
av93HNL57G79Wz2j92L/229p96GxoW8ojuV7WPdX78GH3pj6mwRwcTzOptwR
HpMPLY7teVAfszcabrzmzanJp3YTX4cVf6Yf3ut1/PRXvCXx9O51Qvd6Zu+4
/re7UROPmnh7a+dpXb60m/jUn4/11sTrxNTE78Quvk/tfS/WX7P+RxTHcqzQ
z8V+HNF9v5N7L/e/fIeO8J40qZh6oll/TT7s8wm98/bu5tjhRxZ/NRb8bcXk
hyY/NPXhqNTkgybeNfF+dHGk21pN/OuLYoHfXsz+avZLf+Wa/n/Q1MPJxeSL
pr5o6ssxqePx7tSs/7HF1CNN/L+jmPjXX4z6pFn/dxaTD7nZHx3htHWfj+s9
20/fsSnF9WuE91RNvdeRbtfkJh91PM52TT/QxN/xxQv76TdTXx7rpePLb9Xk
o45ffkGzfu8qju29Ljfrp8lfTf5q4kUTH+8uJp91/DhbNK8npGZ9dSzHjZr4
0uS7Jn80631icZS7mZr11aynpj68p1pfTf3T8eOs1qyf/nH/jx9/UjHpqZmX
dCzHmKYeauL15Or5Nc8/tZj6oSNd1mv6q+b5T6meVxMvOsrROs08l5v1eG8x
8ZSbeU6zPpp+rqm/msc7tVo/TT/VZ8V6avpJ7tju3Zr8fl9q+m+7qZ+a+qnv
iP05rZj40+Svjh9n/OnF9DP9uyj4mvjUrHduXqcV0480+6HpJ5p6oMkvTTzl
ph5rnveMYvJPE2+tPrqLx9zMA5p+rVkvTb6dmZpxRlOPNPGsWT9NPGj6k6a8
vr+Yeql5fk2918SLjnJ6jyZ+Nf1M0y805xfNuD+9mHjS1KfcrIemv2jiS9Nf
NPVVk/+a+DqrWk/NemrWTxMfmvXS9CdNfMxIfXA8gCbfNPGjyT/NemnmR838
0G7qa27WV1OvNP3sA8XkryY+c1PfNPmqyVfNfKDZD018al7PLmbe18SjJl81
661ZP31iBFRu+q+m/mnyXROvM4s5/2v6lY7xY65mPTX9Sn8q1k8zj2vqn2b+
0Kyv5nyjyf9ziuPxZ2nWUzOv5CafNeuliacPFi+NB9CfiOfXnJc0z6upf5r5
TsfyTjm3mHzV34iBTpOfOsrpSk1908SLpt5p1kMz32jy70PFxIt+NB5A0w80
533NPKPZ31nF5FNu5p/cnB81+aVZH0190tQnTf7Mrp5fR7hcpemPmnlKE/+a
+NfU914x9V1343txl47VemjyV9OPND+v5vyl+fk187gmvjT1UxP/mv6vqV+a
/NDUA83rnGLmJU28auJHs3+afqip35p6p+kfmn6uiad2fyfWT5OfmvtNzXlH
s16a+UGTz5p55cPF1BtN/dPU19zEj6afaupvbu7HNPGjWQ9NfdXEl+Z8oFkf
Tb3X5NvcYvJNE0+a9dOsnyaeNOupycfc5Gdu7qM066/JX03+auJPk8+afNas
v2a9NfVLs965mfc0+Z2b1/OKyfd9nrCf6Sea/dLMP5r90cxrmv6rmSc19UGz
/pp+o1l/Tf5r1luz3pr41qy/pp9r1lvTz+ZV65eb9dTUU038a+JfU0819UNz
X6mJZ0090cSzpn5o4ldTTzTrqzkva9Zb058066mpJ5rX+dV6a843+qdRXzTx
qun3mvjVrLdmvXMzz2rqj+Z+WlN/NOdpTbznZr808a9Zf838pYl3zX60m/3S
1BfNfcP5xeyPpv5r8kGzX5r90uyXJl80+6e5v9XMs5r6ozkPaPqDZv5tN/VK
U580+aPJF83+aeYVzX5q6ldu5pl2k28XFLOfmv3LzX5q5mvN+VOTX5r+ockn
Tb/Q1DtNvdOc/zX5lJv909RHTX3UzFO5yU/9pdgfTb7pSJcdmv3R1EvN64XF
zGOa+qjZL/31yCfNfK8ZPzT5lTuWc4lm/zT9S1MPNful2Z92Ux819yma/dGc
JzXnK02+afJLs3/tZv/q/bqomP3R1ENNPmnWX7PemnqnyR9N/mjWv91Px/pr
ziea+wz9TOyH5v01zXlNUx819VAzr+Vmftb0L837axdX+5F7XhQYTX/T3Edp
3j7S1L/czBe5qY+5mUc08aDpd5r7OE085L4yCpLm/q7dzJOafpib/dfkn2Y/
czOfXFIc4Xe4Zl7X7J8m/zTzh+b8o+lnmv3T7Ifm81Oa/dHcT2rySVPvNOdR
zXpr1jc39VGTb5r+pf8R+aV/GPOi5v4kN/PGR4qZNzTzhGY/NPuh2Y/c3O9p
9qfd5Jvm/jY351/N530054Pc3Jfl5rygiY/cxIdmPtXEg/5CLLj+QRRszX20
Zn7JTT4uKKbfafZbc17W7He7mWc0+6mpl7k5P2j2R9NPNfOM5nyQm36qmT81
84ueFl+gmV805wfN/KE5z2nmS818onldWEy+auZLzX5pzmea+qiZF3Oz/pr3
CzT1UtOvNOutmU8066tPi/XVzCOa9c7N/KiZHzX9SzOfaPZDsx/V841bVBzv
Hx7W7piXj8pNPmo+PqfJTx395yQd9eVUzfld8/GOdjPv5ia+NPVex/xwsSb/
c1PfdezfxzX9u92cd3Ts97U6/rjP5Sa+dcTH9TpeRnOTD5p80DHf3qI5P+vo
x7fpCI+7NPWqip+7c9OPdKTPvVX8jFXx890qPtbp2P77cjP/6OgH92v6XRVP
D+Tm/Vgd6bA5N/Nru6nf+zxCPD6iqS+a+pKbeqPpBzri84+54/y4UzNftzva
wUs67tf2aOrZpamZFzQfp9fUL815TMf2HqupZ5p6lpv6pqlvOuJrxvDMvKKj
PM3Rkb7zNf00N/VMR/wsazfza7sj3j6p4zx+tab+ae4nNPWu3cxfmvlLMy/r
WN6bc1Mfq/i7JTf1UUd6rcod89JdVXyu1tTLKh7XVPG4Njf1UjPftzuW835N
fdTx5Q+0m/NkFZ+bNfVPRz/+haYeas6j7Y7f/pimPlbx+4SO/v1kFb/bc1Mv
q/jeoZm3Bzf1Mzfnac3L4tTM7zri/RDNfZfmPK7jvDIxN/cpmvqrmS9zx+dB
jh/c1Ovc1G/N/dyBM/Os5nyqIxxnaObb3My7mnqvmWc19V9Hfiwb3MzDmvrf
bvqDpj/oaN/Xtpt5uN30C02/0MzLVX6sbDfzc7vpH1U+3V7l0ypN/8jN+bbK
r7s1/UTz/laVH2O56S9VfK+r4vu+dtNfqvh+QNM/Bjfvv1X5slnTfzT9psqf
RwZ33Ac+pqO8PjG4med1HHef1Mz3wzP9LHccr3a2m/6mY557vsrPl3JzH1Ll
757cnCeWFNPvNP1Oc1+Sm36n+bxbbs4ng5vzTG76q6afas4zuemP7aZ/avqb
5jyj6V86lufcdtPvNOchzX2Pjnyfr7nvz839kKZ/avqn5j6y3dwH6civq3Nz
X5Sb+6F2c17S9MPc9MfcfD5G0y+r/FqZm7/vkJv3MzT9Lzf3UVU+rNbcN1Xx
v6aK77Wa+6gq3sc0/U/TzzT3S1U8b2g3/U9z31TF+8Yq3jdp+pfmvkhzHtKc
hzT9pYrP7bnpB7m5P6ri8fnc3B9V8ffS4KZfVPG7p4rfcUuL+TyApl8Mz9xn
ac5XmvstzXlKU+8191m5qfe5eb9Gx33AGe2m3mvur3JTzzX1W3O/lZvzTm7q
uebtOx3hsGh4pj+0m/u13JyvcnN+0vSXA2fOZ5p+1G7u9zT9SdOfdOT/9bkj
n7/c7vjfUc19X7u579Oc33Jznms3/a7K91WDm8/Dac6HVf1YnZu/j6Ppj7mj
ftzbbvrpgTP3mZr+rLnf1PRfzf1lVZ82VvVm8/DM+VNz/5mb/l7Vl0c095+a
fl/Vk61VPdnWbu5Hq/qwvcr3nVW+7xrcvB9+4My8oDk/VvVj5LJi+nm7oz4c
1m7mAU3/bzefx8jN/JCb86PmfjU384TmvJibeWN45jzabu5nNfevwzPn3dyc
bzXz0PDM+Tg385bmvKyZnzTnYc38k5t5Jzf3yZrPWw1u7pc185FmntHMM5rP
c+Xm71fl5nzcbuaLdnN+zs3nN3Izn1T15bZ2cx9d1ZtVmnljcDN/tJv5RMf/
/9uadnPfnZvzv+a8r5kn/nvm8yztZt7JzfyTm/v0qn5srOrHJs18027mn3Yz
D1X15+HczEftZl7KzfvFg5t5SnN/r7lf0by/XNWnnZp5KTfzzuBmPtLcp7Sb
eSo3L8tScz8zPPP+t2Ze08xjmvv+3Nz3a+7vczOP5Wb+ys081W4+L6+Zh4Zn
Pt85uHn/IDfvl2vum9rN/KWZv9rN/NRu5qvczFvFI69l7rfazfx24Mw8qJnn
/nNm/tPcj2nef8nNfKh5/0VzfzW4mR9zc/+luf9qN+/XaO67NJ9nyB3/jA5u
3u8ZnuO+/ebczLua94s086rmPi038+vwzDw7uHn/SjPvDs98/qPdvF82uHl/
LTf3h5r7u9z/BJuMhxs=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJzt3H/s1lUVwPGvVFqYaYaJWgkJ+SNTKTS1gi+CKFCIQIS1WYvcbM5qlsu5
2b6zOZrLuRkbjtmc5UZutEZzlsvciM1mNKMfwxbOKMIx0YaujFFkPOf9+d73
vA9nXB+/qH/Ems9eLr48z7nnnnPu/Twy+fNfXnzVuKGhoVmHDw31Xl/664rh
//s19MjyV+hPVV5W/Xm1P9nnC9909tptO+6d+VLff2CPLB3+1iN7Ny8/+VcH
9tDS4S0re//iN8V3TJm3/3+/a/PIkpdt3t8fup/3Mj2yuM/bdkx46K6bHy/m
8/2p+/0Hd++nTXjoiQN75PI+E68/H9hDlw/PnN77N9tSE4+/pn6q93FWby/m
8/4t9W3/vGf9jOlPpY4/fvPOA3tkURePp5v9xAPXbn3g2l3dzzuYLyt+MX59
vM/E95k+Hxa//5X75tVLdl83/u/d+1kwfFwvvEt2d55/ULN+ub+47uj9IX+u
mN/+fPExsSD/6DyvWz+94qarez+h+Ce98Gx9oZj8/lfnS4ePvHLhhk2n70nN
eu0tjj9uwn9SE69RX9LF67/N/mHv46/X7IcXm028h4bx3D6fccMF+99ybtYj
88XDvXd75cLDOs/pM+s1LvVvl5984q7Zbyhmf476om5931jcW439b7GY9R3c
39u/m7esPLzzrMrDfSZ/Rj2jy58jhtkPH+3y5c3F1IPc86NAvaXP/PwLu3wb
X/xdEqQ4wr3hyGLy7a3Fc+IDH1X86V64V+SOn37l24oJ99GNPr/P5KN+Zna8
odTk3zHNJp6a/Bz1eX2eF/F9e3Es1w2aejPq6V38jy3+QSx4u8l3Tb6/o5h8
18/FemrqyYRi9oPurd5NV2vqn2a/HFdM/usI5zb9zUiAd3Y+p8t3/YtY3+OL
f93j2Trezjr9Qq9dbtHUn4nF8dvXTuzy/8w+U09OKP5GlPPcrNeJxaxHbv7v
JxWzPpp+qtlvOsaLO96Vmv2o2W/vLmY9NNv7PanZn+2mf2j248nFf4n6pcfH
hphUzHpNqj5Pbvajpv5MLmb/6csiPzX7MTfx0pGeD+ivxgfQ5LcmP95bzHyo
74z46di+12nyR1PvTilmP5xSxfuUKt652T+52d5Tiuk3mvqgI91u0tTPKdV6
aerF1OKlkfBTh4NDp3Xrob8U8dfEOzfxf18x87RmPXSk112aeqqpR6cWE39N
/DX1SBPP01IT39zEV7MfdHz8HZp8P73Z5LcmnvrbEb8zqvhp5gVN/mrqu6Ye
vr+YeqjJR028ziym/ukZkWCaevCB4ijf92jySX8t9rOmHp5VTP7o78Qb0NQ/
zX49u/iX8Xk1+aPZn5r6rw+Pz39Oauqnpj5r4qUjHOs1+aTZr5r80sw7mno7
rfp8mnzTV0RCa/qfZl7R5Kdmf2leP1hMvmjio6m3mnzVxEMTD0190Hz+DxVT
33S8/Ws1n08zj+l/99Jll+Z1ejH5qakXmnzVfH7NftWcPzT1W/P5NZ9fs9/O
rT6/Zr01+a6ZhzX7U1OPNMdtzTxxXvX5Rz2l+/ya/aGZbzX9QLNfNPmhqW+a
+Gjy/8PF9LfcxENTDzTx0LyeX0z+63j7MzTzh2Y/aPJBMy9r4qGJh6ZeaOKh
qYcXFHMe1ZH+szX7R5M/mv2kiZ8mfjq4KTfx1bxeWEy+afqjJr808dTUG008
c8dvf0STb5r55CPF9FdNfdLMW5r6qyO8qzX7UTP/auKlOS/p0XuHUZOfmnhq
5kt9UuxPHeV/paa/afZv7h9HPPW5Ud808dWcd/XPIp818f5Yavqhph5o5h/N
+U1THzTzkWZ+0V+P9dC8zihmPtbkq2be1FMjvvqcCKimP2j2v2Ze0MxHM4vZ
/5p4ac7nmnqg2f+a/azJT91d1xZzHzFcTD/TvB9Nf9H0F02/y83716yvnhTx
19Q7Tb5r8kFTPzTzhSb/c7OemnlE8zqre53UzSOa+Gn2g2Ze0eS/5nyhWX/N
eUvTvzX1TJPPmvhp8kcz/2jiq+l3mvqsiZ8mfpr807xeVEw+auqlpp5r4qmZ
vzT1VJN/mvzS7HdNfDTzgKY/aOKj6b+a+qrZn5r4aOpHHZ/Zqalvmv2riY8m
/zT9UVMfNfNzbvazpv9r4qk5n2rimZv9qqMcbdHEU1OPNfPYqCd2+3dOMftX
k2+aeGryKzf7WTN/avav5nmHJn6a+OWm3+dmf2vO75r9rNnPmvjmJr65eb24
mH6oibdmf2v6jyZ/cxNvTT/S1ANN/mrir4mnpj5q+o+mHmjmR815XlMfNPHN
TX5r6ocmn+cWc3/SbuqJJv81+a6Jvybemn6Um3qsib+mf2nyX1NPNPmuWR9N
fdGsl6beaOKvib9m/tecTy4ppp9p5n/NfKyJr2be0vR7zfykqSea+31NPmvy
WdO/cpPPmvhozg+a/NTcX2peLy2mPmvyWXOe1uSnpl5o+p+mPmviq6kfmnqh
yU9NPmriq5kfNPmmyTdNfdDkm2Y+0NTTecXMB+1mv+cmP3Nzf6GJr2ae1cwX
mvhq6rGmPmjir78QCaZZj3ZTLzTPzzX3sZrz1tiZeSY3/UGTD5r6k5t80dSn
+cXkg6YfaPabJj8051nN44Dc7EdN/9DsR835R9NfNPOoJn80+aPJH03+aM4D
mvsr/XTkh6Y+atZLsx6a+C+o4q85P2rmI008NftNEz9NPdPET9NP9Gcjfpr4
5f5+xFPTrzX3a7mpl5p+runfuennmvqqqaea9dH0L835Vf885lnNemr2lx79
Ht+oqc+ar+do1lvzdQLN+rebfqjZb5r9pskXTX5o7iM1+ZKb/NHMI5r80Ky/
Zv019Vmz/pr1z83+1PTb3Mw3mvtSzXyjuR/VzDf1+n+imPkmN+upmRdzM+9o
+rNmntSsv+b8r8kHTf3Q3NfqEyI/NP1c87wlN/mhqc+a+VWTP5r80Ky/5j5Q
c3+sfxr1QHOfrGN77srNeVcz7+ZmvRcW019HfUzXXzX5oDkfa/Z7u8kXzfN9
TT5o+m/uSKcVmv6rOe9p1luzvpr+q6kPmvlMc5+hua/X3GfkZt7Skb5bNf1B
M3/lph/kpt9flprzoiYfNPNWu8kXTT7kpn5o5gvNPK+jnS/JTb5o5v/c5I8m
fzT1ITfzmub5qCZ/9FmRL5p80Ky/Zj9r1rd6P0csKmZ9dcybR2nOtzrOJ8dr
5gPN1x81+ZE73u5kTT3R9JN2R7k/U5M/uZk/Mg/1mX6leRyi6V86+vUCTf3S
0b8X6VjfZZr8zB3r/zkd6XCV5j5X0/9yc17RkU/X68inG3PH+eGW3JFPt+uo
J6s059/ckT5rNPOYjvy5V3N/pGP57tf049xRbx6s1v9hTf+u1n9jbua5Kj82
5Y7y85imP1T58EfN+UHH9n5Sx/y8XXOeGDszb2jOI1W+7M0d94X7NC+XN5t5
Njf1TFO/NPVLU6809UpTr3LT3zT1SVOPcsf8ME1Hfp6n6Ye5qU+a/qgJv2a+
1tQjTf3RzN86zh9XaeqPjny5RnM+yx1v5ys68ul6HdvpRk0/1sxzVT7coqPc
3Vrlx+3tZt7X1LN2U990zNtrqvy7u8qn+6p8+VFu5s92Ux8194ua+4vc8eMe
rvJvg+Z5no5++Njgph7m5n4ld+Tvk+1m3tLU0yr/d1T5/GyVz7s181pu/nPE
Kt/3Vvk9bnGzmf80/7mYpj7qOO8cm5vzQG7mRc15Usf8O1lTPzX1U3O/mJuv
f7ab+U4z3+WmnmrmvdzMf5r5Lzf1WFOP2x35vUzHPPAZTb3W1Gsdy3ONZj7U
1GPNfYlmXmw35ynNPJmb+q6572039b/K/9uq/L6jyudVmnqcm/kzd4x39+Wm
fueOcD2Ym3qcm/k1N/W6yueNmvk1N/Pr2Dny+/dVfm/Rj8f8q5l3200919yX
6Ei3ndV+eLbaD7t1nJ+er/J7T5W/+zQvS1JH/o7LzXzbbs77mvO+pv5r6n1u
nsflpv5r5m3NvK2Zt9sd96unau4DNPN2buZtHcfJaZr+oPm6dG76haZfaPqD
5n4zN/2j3fSTdtM/NPO+pn9onr9o7htyM/9r5v92029y0z80/WJw832V3PHP
kWo/3pyb+7+xM8+Dq/16e7s5r7Sb/peb80u1v9dU+/VuzX1NtX/X5qY/5qY/
Vvt3veY8o7nPyU0/1NzvVPt3Y276Ye7Y349q7nc055exM/0zN/fJ1X7fqumX
mn5Z1YPt1X7fWe3nXYOb85Omv1b7d29u+uXSYs4/uTkP5aY/as47mv6m6Ve5
uU9qN+cjTf9rN+ep3PTHdtM/NfdVmud5mvsrTb8cO9NfNc+HNP3y1TPnOU0/
1fRTzXlM0z8192OafnjozPMAzf1bbvpxbs5vOv45ojmfae7nXj/mvNhu+mlV
L1Zp+me7ed6cm+eJuemv7ea+sdr/66r9vr7dPF/RnF8151XNfaLmfFrt943V
fn80N+fLan9uHtz0U83zmGq/b9XcJ7abfju46c9VfdlRPPRyTX8+dKbf5+a8
rbkv1Zy3Neft3Pzy74XkvjQ352nN/KA5X+dmntDME+3m/N1u5hPNeVxzH6uZ
TzT3s+1mPsnNPHLozHySm/O9Zj7R3A9rzv+5Of9r5pGxM/cHuZl3csf5Y65m
HtLMK5p5ZXBzn5Cb++nBzfyk+f6DZn7KzTzVbu7DNffhmvtvzbyTm/mn+nto
RzT3B1V9WVnVk1sHN/PJ4OY+od3cp1f1aFVVj1YPbp6Xtpt5aXAzT7U7vu92
r+a/t9HcZ+Rm3ho7c1+Sm/uTdnO/kpt5Lzfz3+BmXqzq44aqHm6s6uEjVf3b
dOjM8+rczJPtZt7MzfMRzTyqmS/bzTz5+nW0u+25eZ6Tm/sqzTxa1ftnNfdP
7WY+rfrBnqof7MvNr4P9veaDm/sxzXzbbubfdjP/5mbezc18m5v5VjPftpvn
UbmZjzX3c5p5dHBzn3bozPzbbubjdnO/99qZ+VwzD7ebeVkzL7ebefrVM8/z
2s33jcfOzPeDm+8Tar5vr5nvNc8XNfO6Zj7X3F/m/h8J/jmt
     "]]}},
  AspectRatio->0.8,
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{430.8333333333335, Automatic},
  PlotRange->{{0, 50}, {0, 50}},
  PlotRangeClipping->True]], "Input",
 CellChangeTimes->{3.5084757854375*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], Thickness[0.00020000000000000004`], 
    Dashing[{Small, Small}], CapForm["Round"], LineBox[CompressedData["
1:eJzt3A3InlUZwPHXlVqaaTbT1NKV5kcf05pLzeajs+XU5nQ6J4FFJhhihSFZ
YLwspJBWsISFLMQYLMGQhawEEZZhDMPeLEya2BtDG37ElLIorXyu//2cP53X
q053z+smJdHDb27uuc+5znWuc517m/eJz1x4xZyJiYmpvScmhp///M+lg/97
vD51z/kbpx/bcPq/9p2Vf1z80Ffu+8vUqp/hyVUzvPaopS/+78HxeKL2JdXP
XznDfN9fFn91+PWO+HXni2d4+LPn3v3IS3ui9kXd8/7mpT25YnD6guGPTBc/
Pvfu9avXbe9+fu0L/63X/PHWTYsWPF48/DbrV/+u2fF1pnYU8/xPdN/vgu75
nur+/UyvXrdi5zX7/D71p27f/8Wv+Ezi5f+xmc9nmz0crRU7NfP/h2Yzvs8V
M35/Kt73smVb7j/uz6lf/MXDEU58/iB+u7nPFzO+Iy8bfG/4+Jv+NsN7hM/r
4uvvxfy8icHIjN8e3Y+fO7j+yuEPZD6nG685xT9fdcShTy5+VeelgwNiQF7d
24yvHo7WdafsWcx479X57Bn+wdXbNl+9beQlg58Of/X8vYuZH818vCb18Oku
vz4360PHL7/utcXX7DP8kZEXzzDzvU/xI5uHD7BvMfP/uuKzLh/OyH6dzxzE
crrs9Z3PGDBc+6cmHkYeDJ5aHP/B4vh6xx1QfGQ8rz5+OJwbNfkq86LB0lhw
b0jNeGniUX8uvpCO8LvmwGLiUROPbywmH+pnYgL0X6eGv0DH4145tzjSxVrN
+B9UTHzqTw/Db7OO4ZrWxOubms386u9EwGji++AZZn2f1s23Jr4PKT4oBlAT
3zp++2VvLv5S5ANNPj20+NsxP5r41szPYcXE9+HFjPfh3fOc3I33W4qDazTj
nfvzMf46lte2txazPo4oZrz0byNfaNaLjul6SO8Vz3Nk54Xd+GrWU7tZb5r1
pRmfecWMj47H3azZv99WzHoaeUHl93bxpsmvmnh7e3H8dldrxkfzeVQx600z
/5r9QLM96osiPo8uvjQCWDMemvWovxwL7B3FrLeRTxh8P35D/aOIl2OK2U80
+UbH19ui+Ty2i/d3dfF/bPnx2L4X6RjejZr9X8fjPKbPj4A+LjXrWZN/Nfk3
N+tfM37HF38tJlwznpr8oMkPmnyuY7jnv7OY9akZXz0a15GpL/RhEW/6pPgP
auJr5KO69fXuYsZTM36aeNMxXLdq6ilNPfye4m/GAtDEnyZfzS9m/WnWX27G
S7M+Nfuhph44oZjx1MyvJl9ovr+mXtI8z4nVeOtIV4dqnlcTz5r50MyH5vk1
+UAzP5r92LxFPtffii+gWa+a59fEtyafa/bH9xWz/2jyi6Y+0nwuKCa/aOZP
k391pJf1mvWpmT/N/J1UTHhq4k/z/TXzoZ+LeNTspwur76/5/rl5Hk3+1DyP
Zj408ff+YuJPk480+4Em/jTPr+Pr3q6ZT8161MSnZn5PLmZ6NfGp2d9zs341
46cjnW3S1AOa9XtKNV6aeNDsL5p40Dy/Jh5OLWa/0axPTTzoo6O+0MSDZn1q
5v8DxdT7mnpDfyx+gib/a55Pk3/0qA4emXJUE/+ael1TP2meT7NeP1jM/Gjy
j6a+0r+KL6SJd02856Y+19Tnmvp0UfW8mv1RE6+aeNUnxA9o1nvmI7v1r38S
8396MeOlqQd0hOtizf6k419frtmvNPlBc97Q9A808aNZf4Ni4ld35XUx+7tm
vDXxranfNOcVzfhr4l+TPzTjr3kezfrX1J+a/HdGMfGjOe9qnk+TvzX5IjfP
r1l/mvWnGQ/NeU6T/zXntdysZ81+oRk/zX6hGa8zq/HSjJdmP9Hkh9zkX83+
oxlPzX6gqXc061uTvzX7h2Y8NeOlGS9N/GnOU5r404ynJp8uLmb9acZXE3+a
8ctNvtOMr2Z9auJTM376k/EAmnyjyc+a8cnN/q8ZL816rcfnrGLiURN/mvyq
6TdpxkMzHpp+qmY/0qzP3MSXJr4046WJr9yMl+bzQ6mJL815WxNfmvyuWb+a
+NKsT009qNmfNPGUm/HVxJdmfNvNeUoz3przlWa8NeOdm3ypWf+aejA39UI9
X0uKqR8086OpJzT5QRPvmnpME/+a87hmPWjyrSbfavJDu9nvNPOt2e80+78m
P+emX6+Zb818a/oZmvnU5CfNfGrmU9Pv+3Ax+Uqz/jT1lGZ+c7M+NfOtqU80
+6cm32vWo2Y9auYnN+tPM3+a9ac5z2jO75rx1oy3Zj/V9N/azX5ydmrmRzP+
mvOcZn1p8qNmPbWb+dLkU039qJkPzf7TbtaXZj1p1otmvnJ/IRaQZv4060WT
/5am5vyuzyHgi5kfzf6v+ema8dbkN81452b8NflQU29q5kezPnJzftPU85rz
nKa+0uxXmnymqa8086H5PKeY+kGzP2nWS27mS5PvNP0/TX8mN/cdmv1Mk/80
861ZX5p8qDmf5ma+NfOtvxv5MDfnW/1EzHdu8qVmPWrmu93cj2nWpyYeNOvv
3GL6S5r6RDO/mv1Kkz8161OTTzXzm5v51cyvZn41/TbNfOamXtHxr9dp9j/N
/Grq/9zsj5r8q8mvualH28385yY/aOJBk5/PS83rIZp+kiZeNPGSm/jR1Lua
84kmfjTxoulHavbr3MSLpn+pqZdyEz+a/UATP5r9QLM/5yZ+NPGjqX8195ea
/KCJB/181GOa+ktTX+Wm/v1IMfOr2b8186uZX838auYzN/Op2e8151fNfq+Z
z9zMr2b+NOs9N+/fac4vmvnTrH/9w5i/3PTLdSzHJ9vN/qCZ3/4mXyxLTT2e
m3jS1COa/KLpD2nySX9TX2riVT8Y8dpu4llzHtfsZ5r4zE19qslX7eY82N/U
Q5p8l5t6V7MeNPlNsz4060Nznte8v6XZDzXxnpv9T1MPn9/bxK8mfjX1syY/
6q/HA2riUdNO1YRTf1NP5yZec3N/pYnn3NRrmnhuN/Go6T/lpj7XxKPm/KU5
f2niTRNfmn6GZv/Mzefy1FGfzslNPtXEn47n309T3+eO9Xqwpp7TxKtmf9e8
PqWJZx31zIk6fvvTNPt/f3MfouP8dK6Oemi5jvlcqYn3dkc99dHcrI/cET8f
15xvcke4XaGpbzTrKXfkty/mjo/JKt5W6+h33qBZf1X83aipn3Ts79/IHfny
pioe11XxeHMVj7e0m/Oaju1rg6aey009PvIhMxzlwZ066oV7NPuXjvJla+4I
lwdy0w9qN/mr3fHLH9acH3TE86OafKjpR2nyo477t6d1xOuzmj8Oo6M/80Ju
8uMFxeTH3PxxCU3+y00+7O84rh2uIx7n5Y74O0ZT347P5Gsd9diJuaM+W5ib
fK6pl3WUG2fkjnSyRNMv0hHPyzXn/dzk69ycF9tNvm43+VtH/F+luX/W5GtN
vZ87Pib7m/NAbvK7jq93Y27yuea8rMnvOurhm6v1sb6K/41V/N42PnM+r+J9
kyaf56Ze1PHL76nie4uOeuXe3LxPq+n/VvE/pekPVPH9cLvJ51X8Tlfxu11H
+b0jN/k9N/le02/Q1Me52Q9y03/IHcvxhWo9TFxYzP6Qm/o6N/tJbvobueM8
faDmvJibelzTD9HsH+1mf9DsD5r7m9zU97npr+gIv4Wa+wLNfqLZL3TUU0s0
+0Nu9ofc7A+5qe81+V5zvtXU5+2mP6nJ95p6XXMeHp/jY1JT/1fr4YYq/m+s
4net5rytuY+u4nWD5n2e3HGevKOKpzs19bYmv7ab+jw39Xm7o9/3QG7yd27y
c27q7yoep3Ucj7dr6vEqXndo8nUVn09r8rWmXs9N/m43/bcq/uas6HzADJOf
Nf0OTX7V9DvaTb2uya+5yae56Zdo+iP9TX5tN/k3N/W8Jv+2m/ysyc+56c9o
+uOafo0mX2v6N5p8rcnXmv5Lu8nvmnpe049pN/uDJv9r6n8d6+Pa3OwHmvcX
cpPPc1Pva/J7tb7W5Kb+72/6PZp+z/jM+SI3/aHcnEfazfmiWr935KaftOvM
flrlg8067h/u0uy3mvua3Oy3Ovq1W9vNeUhzHqrywy+q/PBQlQ+2Vet7Ojfn
n2o9P1at5x25Oe/0N/ttu9l/Ne93aM5Lufm8KDX7r458sbfmvKPZf3X0Aw7U
9NfaTT9Nc/7JTT9Ns1/nZr/Ozflo9sx5q7/p1+Vmv589cz+Zm3ohN/c5mn5g
u6kncnPfmZvzoqbe0NQb7aYeyU19ouk3auoPTf2hqSfaTb9xfI7h+Wxu6hkd
+eja3NQzmvNpu+Njst30O/ub83Bu6ilNv7TKl2uq/Lg2N/3TKj+u0/RTNfVN
lR9vqfLfBk09kpv+aG7qB039oKOdcVe7eb9t9ky/VtOvrfLLfbk571f5Yyo3
9UmVDx7OHfng0f6mnqnyx/bc1C/tpl8we6a+qfLJs/1NvVPljxeq/DBxcXEs
nzm56T9o+sGa+kfzPpCmvtH0GzT1jKZe0dQnuakvNPVCu+nvavoJuakHNP3d
3Oz/mv5BbuoDTT9hfOa+MTf9CU290N/UA5p6IDf1gaYe6G/qAx3l9VX9TT9D
Uw+0m/6Gph4Yn6kXNP0PzX7dbvojudnf200/pN3UA1U+WTc+U09o+vftpn+v
4/h+W276Je2mPslNf2N8pr7R1De5qWf6m/5KlQ+3VPnw3nZzn1Hlt62a/kpu
7i+qfDalqW9yU9+8fKbfo7kPyU1/p93UQ7mpZ3Jzv1Llw53tpr5pN/ctubl/
qfLjnJXF1Dua/k9u6iFNfyg39ZLmPkZTL+XmfnzXmfqtv6nv2k29p6nfcnN/
pKnfNPVbbu6HNPf1I0/816YezM37ZOMz9aWmvmw39aOmXmw3/SlNfdlu7sfG
Z/pdOu6jV+amftXUq+3mvq3d9MPGZ+rhdnOfp6mf+5v3AXNTT/c39XW76df1
N++r6Pj/SU29rXmfvN3U3+2mHtfcV+am35abeltzv6jpt2nuDzX9Nk3929/U
w5r6Nzf1bJV/76ry7d1VvrwnN/d7uak/x2fq19y8H99u6tfc1K/t5r4xN/Vp
lQ+3Vfnu0SpfTVf5aHt/U7/mpj6t8sPOdtNfy019qXl/f3zm45Kxmb/fR/P3
Meemns1NfTs+c5/a3/Qj/3fN+aHd1Oua+2VNfZ6ber3dvC/28pnzQm7OD7m5
b959zXlGc55pN/fZu485H+XmvNPfnHc09+3t5ryz+5rz18tn+v+5OX+1m+O5
5jzWbs5juTl/9TfnrdycrzTno93XnM9eueb9jd3XnEd3nTnPtpv3VzTn3/GZ
+6vcvN+reT9F8z6K5nw8PvM+S27ut8Zn7r/azfm93ZzvZ8/0C3Jzf6Z5n1jz
5xfbTX9A875Ou7nP0rz/q+kXaN6nyc39leZ9mmp/3lrtn/f3N+f93Jz32815
v938eZ520w/QvM/T3/QPqv12u+bv/8rNfVa76R+0m/ed202/QXN/VTxBv2H3
MX/+dNeZ95ty88+q1LzvpLn/62/6Ja8c02/ZdebPA7eb/oamf9Fu+huzZ95n
yx3737zc9FPGZ/ots2fev+tv+i+afktu7nNz/wO12rGo
     "]]}, 
   {Hue[0.67, 0.6, 0.6], Dashing[{Medium, Medium}], LineBox[CompressedData["
1:eJzd3Q2o3WUdwPHbKiXNsjnzLZsrTWflW3Op2XbmdL7VnE6nFli4BEOssCQT
jIshi5EJNljIQixhCYtYyEoahhXGMmy9oKMr69aaiNOa0kw0q3t+33OeLz63
Hz0ezp3LS3D5xO7dOc/ze34vz/+sZl352YuumjYyMrJ575GR7veXf13eeU17
9LI93qe98fi149vvnv9y39vsR1Y8+MLmy36CRyqPXvqKze//eeqvdv/4zF/2
vGyS+X2/7vmSl3vkkt7v+32zx7fP2Ljm5keL+fv+0Pv9F3e6f3rGxseK+fv+
+N89Mtnz53T/m/Hi2488d+I/f+79/NJJfrz7clZv6/35yqMX9V7/X1Lfuuuu
9fPmPN7zhf/DSyY5Xu7mJ9o8UnvxJLOeTxY/tuHasQ3X7pj/7/j6yCs2+/HU
K/br4u+f7JtXL9153T5/LWb//tZ7ved1Duwu/9KdPZ8zyeyv/vS6t04s6TOp
+fFni/ePDfh7MfuZm/16rpj4/UfxvlcsfuCh2c8Xs/4v9Hx2Z+KHuy+4mPV9
MfX3ui9//b+Kef8jnb6PveHUiVeYm/Xpe9EkE//TUv/mspmH7lj4+mLOg35x
c/cPaNbzDT2fNcmsZ99nTvK3Y4H26nlh51ezu29o72LWu+8zOufFC35T8XX7
dDdAs/77FH+LgCtmvfct3hm/QBOvb+55QeczY90f2K84ftsVbylmv/rudCaC
YeINvLX4qYXLb7p6nY6XO3v/1EdMrP7ymzTnW7Offc/rnBvr8bbU8etv0JyP
3J+PF6Tj+Fw3vfi7sSG5OW/TO5zv03vxdEBxLOe1+plYf018HdD7fad1Ijxv
n9HzKZ14O6cemHhu5/LuX7dcx+rfqr8SG/j21LEc6/UPuy93TBOfBxWTvzTx
2vecznPd9PGIjh9fe3Ax+6vZr0OKv9x9+bs08X1oMedXsx+a/ej7pA4/flgx
50HHy1/d9wmdOK4z3lHM+daHdcP1as1+5eZ86TNjgw4vZr/0F7vLNX54Lz7e
18vH7yzmPOp4O2Oa/ZpZzHnU/D1HFPP+dBzHqzXvR7N/k83vPab3/mYVx8td
rNnv3JzHdkd4jWvi5V3FxEvmIzvfjBeoOf+afK2JN/2DqHeafPjuYvZDkx90
LPc6Hdv9iGZ/jixmf3Qc/5s09UZTjvXFsR9HFZMPNeurWV/N+r2nmHqjWS/N
edSsx9HVemjOZ27qlyZ/avqTY5rNeuqjIt41+avvI3rxri+IDZ9dzHpq1i83
63lsMec7N/la029p8t17i1k/zfrpLC/0TT7UxKMmH+Y+OdZLE5+aeHx/caT/
uzT5UEe63KU578cVE3+a86mJR009O774T1EQNPGl+X5C9fdr8rVm/zTxpnm9
mnyr2W9N/OXm/Wn6oxOLiVfN+283/XFu6r9mvzTrdVIx8aQ5b5r6qcmvH0jN
+9X0X/pT8YI0/Zgm/2q+z6lev2a/NedZM8/kpv5o4kMTDzqWY41mHspNP6ep
B5r1Ojk1/aWmXmvOiyb/aeYJTXxozpcmXvReEQBzi4mX3Jy3vg/urafmvGnW
V5MvdKSf7Zp5RJNvP1jM+mnOm6Yf0uRnTT+o6Q80+VuzXprx75Ri8rcmXjXx
qul/NOdRsz6afu/U1MyvmvXQsf0LNflGE2+5Oc+a9dGcZ83304qJL818qr8W
v0DT72jys6Yea/KxPivW50PFxEtu3q6mXupPxB/QV8Z6aM6fpr/TnD9N/Jxe
THxo8pdmPTTxoX8c719zXj5cvV9Nf6gfjXjQ5PPczKOa+pSb86W/EOujOV+a
/nFeMedJk480+UjTr2vyuT4h/gvNfKeJJ816zS/mPGnyjea8aOZDTX+q+d5J
zfnR7Kfm9eVmvfQ3It40+UCznpr406ynph5q+glN/6R5/7k5L5r7Ck19qNdr
QTH5WNNPaNYvN/GniT9NftWsn6beaNZPk1818aqpn7lZf83652Y/NPlTk680
66+pN2cU/yLyi2b9NOuXm/XU5F/NvJqbfk6TnzTrqVk/zfyZm/5KU58166mp
h5r+SxPfmvyiyX+a+8OFxcSvpn5q1k9zvjX9pWa9NPGoyV+afK6JP03906yP
pv/X5ANN/6xZL01/qMkHmnyg+X5mtX6a/JibfKmJP02+16yv5vxr1ldTPzXr
q6mXmvXUrJ8m3nJznjXxpvl+VjHznub8a9ZTc/415zs38arptzT9j2Z9NfGr
WV/NvKQ5/5r+X3P+Nedfsx+aeNfsj6Y/0+yXZn808a3ZL018a74vKma/NPlZ
sz+aeNfEuybeNf2pZr809U+zH5r9yE2+0eSXdrM/mnlBU98084om/2jWOzf9
+9nFnA/N+dD0C5r4zk3/pekfNOureb6niXfN/K1ZP02856af0MS/pv7lZv01
8a+5r9TEvyZf5WY/zqn2Q7Mfmn4kN+dDk790hNc8zXnR7Gdu+hdNPtPsr6af
0ZwfzX5r8plmvzX7q+lvNOdHs9+a/dXkN00+05GOdmi+n1tM/tL0P5r91OQ3
zX5pzpsmf2nqt+a85ab+aPar7/17+6HJZ5r90Dzf0pwvzbyYO9LVBn1cbHBu
9kvz+QbN/mnyY276M81+a86v5vt5xT+N/c7N/mrOr6b/1fHjx2vukzT9hub8
auJBU88095ua/k5zXnOTn3MTH5r4yM3zG835zf1kxM/gJh9o4kmT3zXxpMn3
uYmn3PT7mu/nN5v7wNyx3TNz0z9p4k8TX5r40tSHdpOvNP1WbuqLpr7kJp71
d6J+aO43NZ/fyE28afoxTfxo+mVNvGjiY3ATP5p8lJv40vR7ufufM+yb+qW5
f9LEjyZ+NPVL029o4is38aOJj3bzPDk3+U7Tj+hY/hW56T81825u8pumPuYm
H+VmHtPkq9zEU+4vRXzpf0Y85eZ+PjfPC+t4+mgx8aOJH02/o8kHuT8WG5j7
kNj/4Zl+SRM/mvsQTT+bm3jS9LftJr40n7fMzf1Vbp5naD6PkZt40j+Khk7z
eQxN/5ybeUgTT5p4WlxMP63pt3KTnzT5Sf828o8mv7Sb+NA8H9XEiyZeNPc5
uemvNPlGEx+a+UjTf2viQxMPmnyjqW+aflpTr3LTX2v2X3OfrKlXmu8XNJt4
0dQzTXxo+nPN8+jcxJP+eiyIJp9p7qc0z9/aTT+l6fc1856OH1+u6ZdyE7+5
mQdyE9+afKeZJ9tN/GrqZbuJb828qZkvc1N/Nc+bcjOPtpvzpDkvmvOgyY+5
+b4kNfcROtZ7Px35Zbrmea3mefzg5uPNmvOm4+3Myk3/oGO/j9b0EzrC50Qd
b+d0zXnU9J868t8izfMoHfVwiaY/0czfOu5nP95uzvPg5r5HR3hd1W7yg455
4xpNftDc72ryQ27um3Tcn9yiyR9V/K7MHf3AbZr+Skf+X6Wpn1V8rqni884q
Hu+q4vHuKh7XaubHKh7X6wi/ezX3k1W8bswd8Xu/pn5X8fyzKp4fzB3Ha5Nm
ntARXg9r8lfuOA+/q87Dlirex6r43arJh1U8b8sd8frE8Bzz4tO5I96freL7
+Tr/XlhMP5I74n1vzfOAdtMP9z0yyXEepmv6IR3n4SBNvs5NftbkZ83ziNz0
3zrif267yd866vUCTb+k6Zd0xOuS3OTz3OR3Tf7W3FfpiOdPavJz7niedFVu
8nNu8rXm/qPd5HMd90vX5450cqOmH9TMO5r8ruOvW5mbeaiK79uq+L69iu9V
VXyv1tH/35Gb/N9u6kEV7/fkjvnh+5r+VJPvc0c5uV+T76v436RjXn04N/lb
M99X8T3W7oj/rVX8j1fxvL2K3ydyc99ZxevTuemfc/PPnzX9tCaft5v7Cs23
i5pNPdDUA03/njvOx36a/J6b+VfTj2v669w8r8pN/52b/K8jfOa2m/zfbvp7
TX8/uKM/Ol9zH6SpJ+2mvmjqS27qi6Z+aOqFpj7kjnC4pngkXs7nNPdZOs7L
9Zp+vt0R77do+nlNvtfke819WLupB5p8P7h5nqmpB5rnSe1mXtDMB5r5QMc4
dV9u5gPNfYam/9f0+5r6kJv+Xsfn77e0m3rRbuqHjuO8TXO/qKkXOpbv6Sp+
d2nyeW6+lqaO+J6Wm3yem3yuuZ/R9POa+5p2c5+j6fdzc3+j6f9zMw9o5gFN
/Wg39zmafy6qqSeaeqJ5vpib+yBNvWg384amvmjqRW7qR27qSW7un3S8/WWa
epGbeUVzf6SZVzT1JTf3R+1mPsnN/ZKmHmnqj+Z+ScfzgxuHZz7vUp3vm3Nz
n1Wd9xW5qX+5qX+aeUdT33JzvzW4ud+qzuc91flcl5t5Jzf3Y+2O5yv3tZv5
qTrP91fn88HqPD6Um3mpOl9bqvM1Vp2vrdX5Gs/N/ZZmHqrOyw7N5z+q8/B8
Fc8v5I74fqmubxc3m/soTb1qN/PJ4KZ+5aaeaeYdTf3S1C9NfcrN/Va7eX6Y
O55fnaipb5r7ME09mzpT/zT1T0c6W6SpZ7mZf3JTz3JTzzT1bHAzT+VmnsrN
PKWpZ4Ob+zfNfZumPuXm/i13fI3m5r5OU68081l1Hldp5qXczEua572Dm/u3
3NSvwc39naa+Ved1fXU+N1TnaePg5r6vOn8PaO7/2s39oGa+y02908x/ubk/
rM7rlur8jVXnbaum/uXmPk8zz2nqn+Z+LnfE+7RLipnPNPNZu6lvuZnPclPf
clPfNPd5uZnXNPUvN/UvN/VPU98GN/Od5j4xN/Nfu6mfmvtEzXw4PFM/2019
zU29bTfzqGb+1Dwf09RnTT3W1EPNfJib+XBwU19zU2/bzTypmSc186RmntTU
Tx1fo5r5T3O/WeWTFe2mvlbnf1Vunm8Nz9TrKn+s0dTfdsfn5+7OzX2oZr4c
nqnXuZkvp87c5+amX8jN/W5u5tnBTT9R5YdN7aZfyE3/MLjpL3LTb2j6DU2/
UeWzrZr7ZM18nZv7ZM3nQXLztSw198Wa/iM3/cbg5nnh1Jl+RnP/rOlfNP3K
4Ka/0fQzmvle089o7ptzM59r+gtN/R/c9AOaeq6p57mp75p63m7uk3PzfFLH
eVs2uJm/h2furzX9RLvpF9pNP6HpJ3Izz2v6DU2/oZnn2x1fo+2m36jyw8rh
mc9z5+Y+u93cd2v6n3bT3+hID3cMbvqhKt/cmZv7CM39QrvpZ6bO9ENVfluv
6UeqfLWx3Xw+dXjmvl7H57M3aT6vquknctNPaPqHKt+MDc88D9Dc/1f5aVtu
nnfvPvP8QdMPDW76pypf7qzy5bOa5xu5ue/JzfOOqTPPT3LzdWlq+j/N/55A
u+kP283zmlfP9ItTZz7vnJv7NM3zIU0/qeknNf2kpp/U3I8NbvpPzf2Yph/V
3G9p/v1Zu+k/h2fur4bnyP8LNM+bNPdZ7ebz4O3mPiw3/XFunl9p+tfc9LOa
+zXNfdjwTH+7+8zzruGZz69r+u/c9OO5ed42uOnPh+f4GtU8n8vN/eOeY+aN
qh6sbDf3oZr5IDfzQm7mg6kz88HwzDyRm/miqidrc9Pvt5vP6wzPPC+t6te9
uZk/cvN5n6oebdTcb/7/mOe1ufn3x+3mvnZw8/mndjNfTZ2Z19rN/XBu5r12
c39c1dPtg5v5anAzX+0+8+9tBjfzXm7mP83z/XYz/+255vMHueN68qXcfF7B
/59V/v1Qu5kHXztm/svN5y92n5kv283zkHbz/EMzr7abeXbPdTw/ntVu5m/N
PK35vMnUmfn81TP3Abl5XpWbz8PsOeb52NSZ+4o91/zvL+bm+WDu/wDUfbWz

     "]]}, 
   {Hue[0.67, 0.6, 0.6], Thickness[0.0002951209226666384], 
    LineBox[CompressedData["
1:eJzt2w+on2UVwPHrSi3NtDXT1NLVzD+Z05rLmW333vlfm3+mUwssNMEQKyzJ
BONiiCHJYAULMWQxMGEhC1kNlrGMwhZmFlNQbLVWo2lMKYmp0X7n+97ni892
8Onl3uukRBwf9+/+nuc855znvO+defUXLrl22tDQ0GP7Dg0Nfnz1P1cO/097
7Ir/2qftPfu+TVtWLtith/r6wd177PLhjXf8YsdjV/y0zUP1zy/p/ryfp/7G
4Jcf+avu99e+7NUeu7T783/T/XzlscXDy2adu/Pfx4v5+35fvGnLjHX33PZE
8eBnZ6x7uvvzdjV//h9277GLhxfMGfyfTcX8/X9q9l8GX87yzd2ff3H39f65
mK/3r92vv2g4/rrHtu7eQ7ua9ftb8dNrbnhqzQ3bOi/qPu+zC/YKX/Cavm35
4u037vf37vefN3zw4MtfvL3R53brNe5zKp/9Gj5rF39u1YF3/XPF8z195i5m
f15Izcdp90E7//TV8/9RzP6O+4zha269bvAVFMcvn/Ni8Y8G2/VUf+9/1aL1
G477V+eFXTzsSL3zLx8scDHx8lJxfPkzXu482sVHbuLl38XH3zxv5x8xNDzu
wc9etWiv1OyPZrnGPdLtz7Rmfz8OlGa/NOfxTcXs35uL2T8dH2fT3qnZz32K
2Z/cLw5++cZ9i9m/txRzvsc9PBw/ffNbiwert36DZn/3Kw4etn8x+/m2zvOH
D9+2cGdI5mY/314cvEr/YLBdq/Xgq5u394HF5IODijnPmv1/R/GX4vNo9l/z
+aYXs7/Th8lXp3ef953dz5+6i9nvcc8dfmnw09s0+z8jNfE+7jldfOgz4oAf
nPrKnX/bwmtyf34QHmv012PB31VMfOnvxQHOHcdptf5Z7M8hqak/mv07NHV8
+bdq4lWz3/q8OKDvLv5a7K9mfw8r/m4EYG7yl+a3H17M/mr264jUF0YAv6eY
+H9vcaTHpzTxfmTxrwecrZ8dHKdVmh+PKt4nwkfHcl6nj4r/oSO9LRv3h7v1
zs36a+JxZjGfV1OfcpOfNflPs3/vKyYf6+/EgdfEq2Y939/s3w62d6GO43OD
/mPEs+bHWcXkW008a+qXZn015VNHep53dPGlkd8066fJd5r11Jz/D1TrqyMd
3aM575p6oznvxxQTr5rzr6lPmvU6tjj+uvma/KBZT836aeLxuGLqgabe6c9G
POr4eGs063V8MflCE2+a9dL0B5p88sFi7gOa+NLkG015OKGYepKb9dLkJ815
/VDxJ+M36EinK3J/JeJLE08npqbeaOq/juW6UROPmnypWV9N/M2u1ldTrzU/
nlStnyZ/avKnZv81X6/+YRxozderyT8nV1+/Jn419V3zeXR8uas0/Y6ufySe
NPlVk19zE1/66KgnOj7OfZrzqjmvHykmv2nyr+bzavob/Xw0sJr8p4nHOanZ
f03+0Zx/zX5r+ldNP6H5/Jp40L+M/HBKcYTHbM36aOIhN+unyS+aeNHxx6/X
5GtNPGnWb261fprzrek3NP2v5rxo1kdTbz5aTPxozo8mv2nqkebza+qnJn40
5+XUYsJFU78050lzXjT5Q3N+NOdn3Cd19UWzXjq+3C2afk2zXvOKo7ws1OQb
Tbxo6qWm/9DET27qmaZf19Tb04pjO47T34z11qy35rxq8rdmvTX3PU08avod
TTzqM2M9P1bMedXUH/3p6D/01bGemnjU5DfNemriU4/fW8fNfeP07v+f0K2n
Jn4151eznpr8r4lnTX+riVd9SiyIpt/VEf6zPl78RKyfpj/R5Df95fiAmnWY
X0y+0t+K86mJj9x8Pk2+15xHzXnUnEfNeVxQzH1Wx/G8RtO/auqh5nxp+ovh
Yu6HurseV/GRm/yam/qkOX+a+qnppzT1QVNfNfGkOa+a/K2pt5rzojnPudmv
3MTXSLWfmnoxUq13bu5DmvqlqSea/KKp/7mZx45U+6GJL038j1T7o4m/kWq/
NOdlpNovTX+k6TdGqv3IzfqPFlM/NP1UbvLBaLX+mvyomQ+MVvsxWu2HJl+O
VvuhOR+afKbJr6PVfoxW66+pZ5r6rOknNPVmtFvHY7vzpak/mv3T7Fduzpsm
P2n2Mzf9pub8aX5c2GzOp+b8afKdZv6iqReafKepl5r91uyv5vxp9ldznjT7
k5v7T7vJj5p+R7N/mv3T7JdmfzT9xxmp2Y/c7M+4Z3X9gab+aPKlpp/JTb+b
m/OrOa+afKm5X2j2UzP/1JxfTb7UnE9NvtTUO8350+ynZv6j6Q/OLCZ/avJj
bvJlbtZbky815yM38yDNfUSznpr11OQ/zXpq+mnNemniX5OPNOt3VjH9lSZe
cxO/mnqjyT+a9dTkn9zkI03+yU0+0tSf3MS3Zj6oWW9NPdHkI03/rMlPOpZn
o2a/ctN/a+6bmnnC2cXkJ028a/ZLs1+5iXdNftHMRzTxn5v+TbNfmnykOR+a
85Gb86LJR5r91JwfTT7KzX5qzpcmP2nOW70/5xRTLzT9nea8tZv8pdlvzXnU
7K/m/Gn6QU090Zw/zfnSnC/NfCg3/Z2mP9DsV7s5T5rzlDuWf9u4j+r6A02+
PLeYeqM5b7nZD836a86Lpl5rzotmvTX1RXM+NOchN89n200917x/ocl3mv3Q
rH9u1j83+TA3/ZwmX55XzP5p5heafrrdzM804xXNfmvyqSafauJBs/+afNlu
4iM351UzL9XczzT1UnN+NecxN/HTbvKvpl/MTbxp8rUmX2vuB5ofzy+mP9KR
Ho/MTX7WxIum3mrys+a+rsnPucnXmvjJTTxp5rua+VZu4kcHl2viQVN/Nf2S
Zn81+5eb/dQ/ifygOf+a/H1BMfczzX5p9kuzX5p+VrNfmvOuqZ+a98ty0y9p
9ktzX9P0S5p5lybfa+prbvpdzX5p+iPNfFxzHvVXY7/Gfejwy3HeNP2SZr6u
2b9PFLN/uam/mv3U7Kfm/q3ZT838RHP+NPeV3Mz/2839UVPvNflaU+81+62Z
97eb/dbsb272W/84zqvmfQtNvdfUd83+a+bRi4rplzX7rTnPmv3VnF/9eOx3
bva73eRjTX3PTT+t2f/c1HdNfOQmX2jyRX/Tv2c+qItHTf+oT4oBoeY+rYk/
TX3QvE+Tm3jS/HhhMflEE1+5iTdNvGn6x9z0/7mJx9zUk9yEk47lX6yJR038
aeIvN/VHE1+afkATD5r+UXNf1+Qfzfts+sSIF00/qekXNfcRTfxo+onc9IOa
+qTpL6rPP+2i1JGv983NfUQzH8gd6zs9N/3quIe6+pg7lvcIHR93po56ckzu
aF9OyE286+gv5uaOL//0dkc8jGjqt6Z+6+hfztfk7/6OeniRjvZiiea86ah/
12ru+zri73rNeczN+dQRrzfpiNdbNP187vjvmCb/a/rLdkc+/bamPujIp/dW
8bciN/2NjuN+f7u5j+SmH9aRjh/MTb+sI38/lJt6V8Xrw5r6lzvy/yM6wutR
Tb6r4nFj7vjlT+aO+H0mN/exKr63VPG9Vcf95jlNvdbMc3Lz7V1VfO/Q1PeL
i5m/6ojnAzT5VUf8Ttf0Azri9xBNPtX0n5r5rI56d7Imn7WbfKfpBzT5TdMf
5Oa+oslfmv4hN/dbHfHwGR3zlmtzk/9ycx/W8eV+UUd83KTjuNyi479juSNe
btfcr6r4ubOKn7vaHfG1tIqvZTr6y7tzkx+r+FqpyV+56a9yx3Vibe745Q9V
8bc+N/lM059V8bmh3eSz3BG/v8vN/VTT71XxuknHvGxzFa9bqvjcWsXjds23
w2ry1cSZb+e8pJh8l5t+U9NvavJhbvpLTb+ouQ9p8p+mX9TkQ838PDfzGh3b
N1czP9XkS02+1FFPz9LkS01/pykv/U1+zR3xuUSTX3NH/H5Kk281+VNHebpe
M0/Q9Iua+YKmf2w390Md/x1rN/fJKn7v0OTTKj6XafpNTb+pya+5ua8WD5F/
NffXiTPz8v6mv9X0o/1Nv6rpN3OTr3Wcn0c1+brd5G9N/u7veB/7SU3/qulX
Nfd/HcvznGYeoCPeX8nNPGBxavK1Jl/reB53gCYfa+77mn5Uk69zk781+Vsz
P9fc7/ubeUC7mQ/kJv9r8r9mntbf1A/NfEEzX8hNfdHUF838QJPfc5Pvc/O8
Lzf1ITf9tWa+0G7qiaaeaOpFdR5u0/G8/vZ2Rz9zZ7upD+2mfuSO43N3dZ7u
rc7Tytzk7+q8rMpNvs7N+85VPD+kmT9U8fxwuyO+H6nie4Mmn+dm/qCZN7Sb
/l2Tz3PTz+cm/+emHlTnY3vuOA8vVPG+o87/lxbzfkpu5hea/lwzv8jNPCM3
8w1NfWg39SM382TNfUCT7zX5PTfP83KTv/ubfK95XTQ3+V3T32vmKZp8npt5
iiZ/a+YnuZkfa+Ynucn3mnyem3mLJr/nJt9r7gea55PtZl7TbuY31flYmpv5
jOZ+0N/Ug9zcBzT1oTov9+m4P9/f39STdsf5fKA6j2vazTxJU5+q87Y+N/Wn
v7mvaO4n7eY+kpv7RrupX9V5f6a/mV9V+WJzlR+2aOZXuZnP56beae5DE2fe
/9D8c1mzmY9p7lOa+ZemnmrqZ7upn5rnA7l5n0DH+Z+puX+1m3qqI52crJmf
5eb+pLk/aepju7kf5Wb+pqmfmvqpmY9p6qWmXubmfjR5pv62m/uWZj6Xm+e9
mnrdbuZ97eb+lpv63t/0A+2mX9DcFzX1vt08n+lv+oXqfC+vzvfdufn+yOr8
r9Dx/tBKzbyv3dTv3NTzKl+szs3z7tzU+yqfrJ080z+0m34iN8/XNfU/N/fZ
Kj9t7G/ut7npFybPkZ435+Y+XOWvrZr7cW7mp1V+2p6b+3O7uV/n5r69pNn0
C7npHzT9Q7vpHybOzIP7m/mxpl+ZOjNPyM08QTNPyE1/pOmPNPPs/maerZlf
5KYf08wz+pt+rd30c5p+rb+Zj2j6O837KJp5d27m35rnnf3N+3YTZ/q9djOv
6W/eD9TMczT9YH/TH2r6O03/1W76s9z0a5r5fW6e97ab71er8uPS3Mx3ps70
h/3N84WJM/3nxJl5VpWPV1T5eGV/M/+q8vH9VT5eVeXfB3LT32r62akz/XKV
r9dW+Xpdu3m+026e/1T5+2FNP5yb5z+a5z+TZ/rtyTPzPM3zqdz0z1NnnmdV
9WLzxJn+Pjf9fm76/arePNdu+n9Nfz9x5v3h3Lxf127uF7njffpXqvo37fJi
nu/1N/eR/uZ5Yru5v2juH+3meePrZ+azmvtHu3mfpr+5z/Q395/c3H9yc//R
3Gf6m/vP5Jn34zXz6v7m/tRunidr7k+a+1C7o96OTJy5b+Xm/qWZr+fmfdX+
5vn21Jn5f7u5n2nuW7mZz7eb+5nmfjV15nl8u5nHv36Of8Y0z/cnz8z/c3Of
bDfvE+TmeUFVD5dW9WlZf/N+2tSZ++ieY+6z7ea+OnHmeU1/c7/tb+7DuXnf
o6qvq6bO3Lfbzf24qsdrckd9XlvV53Wa71dqN8+DJs/crzXfD9XfvM+y55j7
+hvXzAPeOGZe8X+/Xub57Z5rnh/n5v2x3LxPNnnmfbR2M2/SzJs076dNnJlH
9TfzJ837bVNn5lV7jnmfb+rM919Nnvnnikkz7y9qvj9MM5/Lzbxu8sx8T/M+
Qe7/AHwgEwo=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{438.3333333333335, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Input",
 CellChangeTimes->{3.508474523765625*^9}],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3A+o3lUZwPHXlVqaaTbT1NKV5p+sqU1Ts+1dM/8357+pBRaaYIgVlmSC
cTHEGC3BAkMWshCWYIzFZTEaxjIWtrClYIOJ3VjaaEpqKZWt2vt833u+dObD
Tj/ueyfSJbh8su7ue85znj/n95uzrvnCJdfN6PV6G/fu9Qbf//vrqv7//Rry
2JU7+Yw9Z6+YePr+ea/uKxKP494V/SfuXP+PjVf+dPjPF/+PvrzypcOf//Pi
bwz+8RG/bHNvFx67ZPjn/bqbe/U/v7h/91Hn7fjPY80efLqZa598dfcuHv78
3xXPmzP4byZe3WOL+s/MXLvs9nu2NJv1/cPw5y3qL31p+aq5c55JfFHlhTt5
8Nsvu/2Pu/S/4+vCfvz6G7fu0vz/Lxju35+Kn1x94+bVN25LfN5wPZ8d+tyd
zPr+OfE5lc/uHzRYvkufH/qs4frn/tyD++9YoheazY9/MTX795fiA2ID/jr0
gsrzK/eH+62vve36wW9QzH6+XLzv1QvXbTjub8Xsh45/fMvfU+/4YYP/R7PZ
v1eK49ed+c9i9k8PVuemff6V+oeD5V2l2b9ef9LH33L6jj8i9+CnXb1wj2KW
S3OeZ/T3CJ/Z/0EEeG727w3Fr+yI5kO3afbrjcXx4+/W7J+O5T59z+Hvc8Zw
//Ya+rT+92OBNedv7+KXB//zJzT7/abiHb/cgmtv0+fHB35zMedxn2L2c9Kn
7uT4nx+6b2r2f9Jz+ocN/vjr35L6k/EL7jf0yTv585sHP1ATH28tJj4mfeLw
vO9fvE+sxwHFR8Z6aM5D7ti+o95WTDxpzr/+UvyBmvU9sJh406zf24vj496o
Xxj8ces08aY5XzOL4+Ndn5v402dFAjmo+KpYf8365/567Mc7iolfTfzmjuVb
pX81OA2zDx6ejxOG+6mJfx0f70FNfjikmP3U7N87i8l3+muRH/T3IuAOHf5+
xw7Pgya/a+L/sOL449Zp9k+zHYcXkz/0RZEf3jX0Uf2vDNLbRO7YjqvfXcz5
0KzvEcWxXU9o/vwji1lPTTxpzpMm32nysY5f9+nc1F9NfM4a+shdmvOqWT/N
fmvOr45fd0ITz+8p5vxq4lcTD/o3g+1e8N7i30f85ua868l1mDT5XbMfmnjX
lGfNeh1dfFkEqOb8a9ZLk9805/99xeQ7TTxqzpP+UfyCmnx4TDHxqskHmu/H
Fsd2zNXEr6b/0MSf5vMfV33+3MSLZj2OL/5mxI/m8+cmP2r6D03+0T+L9uH9
xcSbJj9q+gU9mecmTT7S1E/NemrOu2Z99SmxYZp41MTjB4o5r5p+oN3sj/5y
fABNfH6w+NvxAXSk7836FxGPs4uJR0291pxnTb+oyf+a3+fEan018aGJD03+
0Zx/TXxr2s2Tijlvms+nqZea9c3NPKLJr5p41LHcqzX1UrNemv5d8/3k1MSz
Jp/rSNc3afplfXTEt2a9NeurWd8PFVOPNOdTk381+U0TX5r40rEcyzX9WW7q
veb7nGLiUVPvNPVGs165Ix0s0+QHTT7T9Kea9TylmHyh4x/P1qxXbtZPE6+a
86qJV8165iZ+NfVBE8+aeNZ7xQKdWu2HZj80+SE366+JX81+aOqx/nEcUE1/
o9mPDxeTL3IT35p+WbMfmvyhWV/Nemrmw9OK6Zc08Zub864jvFZo1kezHpp6
cXr1eTX9hSY+NfGp+fyaz6+JL03/cUYx/ZCmvmg+vyZ+NOuhiZfcxIumn9fU
m48Ukw818aBjOe7R5DvN+dP0N5r4yE28nFlMv6OZh/R3I6A19xma/KfpjzTz
kGb9NPGlWU9NftTkx48W0z9p6oumX9LUb83506x3bvKjZv0186nm+9xq/TXn
VbP+mnlCE7+a9df0S7nZD83652a95xVz3nWE1wIdvFZzvjXnW9MP5aZ+a773
izn/mnqi6e8050+THzT5Kjf5SxNPms+rqa+a9dfUJ8350Myfmvynycea+xxN
PtJ8n19MPdP0j5p6nJvzp1nfdlMvNOutyY+aeNasr2b9NPVD039p8o0m32ji
62PF9Lea+2zN59P0L5p8qjnPmvjS9Oua+NLkL816aOZpTX3X5DNNPGrmK816
aeYBTb3RfF9QTLzl5vxq4i039UuzH5p6oMmnmnjT9AOa9db0l5r6oDnfmnqt
ya+a/KY535r11JxvzfnW1JezqvXSzIOaeqOJV01+1MRvbuJZkx9zc7+t6R80
8axZ/9zUl9zcD2viW3P+NfOK5j4nN/H88WLyqaZ+auq/Zn808azZD836a9Zf
kz80/UJu8klu1lOTLzTxrol3Tb+kiXdNvGvWX5OPzy4mvjX1XrOemvysiXdN
vsjN+mvytaY+aeJTky80+UJzH65ZP028avJHbtZX0y9o8ocmfs9JzTyT+ZBh
fdTshybfaOZlTT+gqf+a5y+a9dbEqyafaOJXs/6aeqiJZ01/oekvNP2FJt41
9VOTbzTxn5vzoMk/mu/nFlMPNPlHs1+afKOZp9vN+dKcL02+0tRfzXnS1AtN
Pdbst2Z/NfuXm/2c9AHD/dTsl/5qnCfNedKcp9x8P6+Y+UqT3zT5TfM+g6Z+
6G9FAtC0D7k5f+3mfGr2r7vZb009ys1519zXaPoFTTxo5ksd270hN/uvyaea
86mJB02/lpv4qPf//GLyryYeNPfBmudvmvOpOZ+aeqbZX02/rOkvNP2yJj9r
9iv3Z+P85mZ/NfOLZj8151lTLzX5WLOfmnys2S/N/lxQHMt1hGYeyc36a46z
pt/IzX61m3yrOX+a+qo/HflWXxP7kZv7Sk391OyHJr9q7jfazXnMzXnU7J/m
vOUmH19YHB9n/9z095p+SBMfmnjQ9Eea/kgTH/q38QMn3Rvub272V3NeNfOX
pl/S9Eeafl9TT3Oz35rn45rzqNnP3JxP/ZPIt5r+SE++lztp9vcTqdlPzX7m
pn/S3Idpzq9m/3Kzf5r6qKmHudlPzX5q6qNmPtHst2Ze1uyvZl7R7K9mfzX3
45pvC4vZj9zUQ0091OyH5nzlZj7Uj0V+1uyfpj7mZt7Ozf5o6qFmPzT9i2b9
c7MfmvlR09/kZn7UvB+iqZea85ab/buomPqpOW+a/jY3+6c5b5r+VpM/202/
q9lfzfON3JzXdpOPczPvaPojTXzoZ6NAac5vu+mnNPOsJl408aKJD839cG76
5e6O9ZmxqJj4ajf5RJPf203+yR3HYZYmP2n6AU18a14n0szn7Y7jdWZu+g0d
4T8/N/2rjvxydrN75FMd9WKRpn/VEV+LdfQDn9LMJ7kj3q7T0R/ekJvzlzuO
3825ua/QzEM6vsY0+T839xuaep6b+p47wvNeHfF6X+748ffnjvh9QNMf6giv
cU290pG/13Q380XuiO+HdMTvw5r6mDvC6VHNPJk7uKmKx6c0+VHHPLaliten
dYTP1ipet+no75+r4vXF3Pz1qCo+t2vy6cXF1G/NfaKO+NxPU89zkx9zkx81
+XDqHPXuJE3/kJv8mJv8qMmPOubXC3LTb2jyn2YeyM08nzvmpes0+U7HfHxz
bvKZjuNxa7vja6zdsfx3VPG1VEe9vit3xNt3ctNfa/qn3OQ7zXyk4/71Ac39
RxVvqzT5sLtjO9bo+PEPVfG4rorHhzX9nI56/GgVf49r8lW7yWe5md9zk980
/Z7mr5fmZv7IHcdjexV/vUtS89chNf2jJv/lpr/UUY8P1hGPh2vyoY54nKUj
/o7R3P/riL8TcjPv5qZ/1OS3dpP/ctMPTp/Jt5r+U5NvczP/5aYfbXecl89o
8nW7uX/XMY7ckJt5U3MfkZt+VpP/NfdNmvlUk781/Wx1fpZU5+MuzX1/dV7u
yR3PM++tzstyzfMCTb+am/yto39Yqelvq/Mz3m7yt6Zf1fSr1flaV8X3+iq+
N2j6UR33i5tyk79zx/Hdkpt8rcnXVTy91G7609zc11fxN+PS1PSvuSM+985N
vm83+b67ef8tN/cPmvqhqR/dzX2Fph/X1B/N/YWm3mj6b0290TEPnqqpP7m5
v9DUn9zUA83ff8tNvdDcT+Qmv2vyuyZf56Yf1+RrHefpi5r7iNzk69xxfm5t
N/cX7Y6/n3lHdT6WaO4vNfcXuenfq/i/Nzf3F1W8rshN/q/idWVu8n8Vz+O5
ue/Q3F/kph7kpj7k5v6/iv/1Vbw/UsX7htGZ+2HN/Uh1fjZX52dCMz/k5r6k
Ol9bq/PzfHdzf9Ju6lVu6ld1frZrvi4rpp5p6pPmPkYzf+TmX8eRm/mk3dQj
TT3R1BNNPdHUk9zUk9zUF0190dSX3Nz3aOqL5r5HU180843m9U/N86V2U380
90PtjvBa1G7mne5mHmo391eaetlu5qHc1FdNfdW8D6Gpn5p6qamHuZmHuju+
xjTPhzXzVG7mqyofLKnO/9J2M49p6q9m3tLcp1Xn/752M6/l5v4tN/U8N/dz
uZn3qnyyUnN/V+WX8SqfrK7yx9ru5j6vyifrNfd11Xne2N3c91XndZOmPlfn
cUJzf1edv63V+duWm+cXuZkPu5v6227ep67O6/bpM1+Xp+Y+MjfzraZfyM38
2m76Cc38OnXmeZGm39C8v56beVhzf5qbfkRzn9puns9r+o/uZt7NTX/S3fQz
mn5G08+0m/la0890N/2Jpt9od7xvtrjd9Cea/qS76Vdy8zxudOb+oN3cL2ju
g9vNfbGmf9L0S+2mP6ry35jmvnn3mf6ryqd3Vvlx6dSZfkxzP56b+/Eq3y3P
zf245j6ku+mnctNfVflzVZUPx9tN/1XlyzWjM/1alU8fys39fW6ez+bm/iZ3
5M9H2s39TLvpN6v8vLHKv493N/1mbvrPKp9O5Ob5hOZ+SNOfjs4Rjs9p7ofa
Tf/abvrX3Nw3Vfl1++jM1+Jmc7/VbvpbTT+r6U9z02/qyJ8Hap63aPrP3PSb
ozP3aZr7tNz0s7m5X8vN/Zrmfi03/W+76Xc193Htph/OTT/bbvrZ6TP9cm76
Yc19oOb9hXbTH7eb/nh0pt/Ozfu77aa/1twH5uZ+sN30x5r7Qk3/227646kz
/bOmf546x9dYbvrj3PTH02eeL+bm+WJ3cx+qef5Y5e9l7eY+NDf/vogqX6+Y
PtPfT52ZB6p6snL6zLxR1aPx6TPzimaeyM3z3NzMC1U9WT868/xY8368Zj4Y
nZkf2s3z56rebMrN+/q5mTeq+rJFM2+0m3khN8+jq/rzYm7+vnNu5oPcPI/u
br6uSM2/v7vd9PejM8/P2808oZknNM/Tc3O/PXVmHsnN83nNfKGZL7qb+UMz
T2jeD2s380e7+fscrx8zH2nmn9y8v6C57283zwNyR72Z3928D6GZb6bPzE+a
9yVy8/xBM67mZn7RvA84OjP/aOaf7mY+mjrzPKLdzFu5eX9D8/6GZj7rbua5
7ubvS43OzHfdzfuZVT0eazfvo0ydeX5S1eM7p8+8H1PV86Xt5nlMu5kf283z
m9zMm7mZL6fOzKOa92/azTyZm/dx2s38qJnvqnq6qruZ17qb+a6qz2uq+rv2
tWPeN9p95nmYZp5tN8+3qnq/od3Mr6Mz8+vUmfl2dObf16OZjzXP40bneJ/i
qdzM39Nn5vvcvP/Wbp4Xjs68X5eb9+t2n7mv2H3mvkPzvl938/zz9eP/AJTM
opg=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3H/M1VUdwPFHCq3MJMQ0tNDSFDNFQxIzuITgzwABCWuzprnZHNUsl7XZ
ntkczc3clM3maM7GRm5PazRHuZjNaDSylWVDF85RhjaRQkszjBn38/5y3vPQ
Z57uLtUfOdfdSx4enu85n1/n3EvHX/nZxVePGxkZmXPwyEj/9dX/XN77v/+X
vPzVHv3ofj5n/Olrt21fM/tfeuTf9Oiy6tcrj17W+b42j9S/vrS3ZeWm3Q8v
/1H36/ubr/9J9/VLel/r//KUn3Ve3H39Lztf+pq+/YQL9/776+77Vx5dVP36
sL1wP/N8v+m8oLdt+6QNq296NDXP/9vZr8Q/l/T6v3vShseL+f6/bzZ//h+K
b33hnnWzpj/V/XkXd3/+04kv2s/8fM+k5ud9tvOFlS/o3XTnkl3XvelPqdnP
P3c+vzd7ev+/7Oo8v/fpscP3PsJzxTzv88VP9X/cO//SeV7l83oTYgH+2nlu
tz77PKf3/RVb16/Y+mIxz/+34isWPPjQ1Bv+Xszz7079+Pr+N3y5+GNTJu+Y
e9We1Dz/K8VH9n/8JSM9PKt3yg0z9/7EI72Dwud265O7v7pXLDiomPXTrN+4
7vuf0/t2PLCOP36X/tXy/g/8uuL47be/vpj11PHjbhtfTPwdXPytvdqyUv98
av93HNL57G79Wz2j92L/229p96GxoW8ojuV7WPdX78GH3pj6mwRwcTzOptwR
HpMPLY7teVAfszcabrzmzanJp3YTX4cVf6Yf3ut1/PRXvCXx9O51Qvd6Zu+4
/re7UROPmnh7a+dpXb60m/jUn4/11sTrxNTE78Quvk/tfS/WX7P+RxTHcqzQ
z8V+HNF9v5N7L/e/fIeO8J40qZh6oll/TT7s8wm98/bu5tjhRxZ/NRb8bcXk
hyY/NPXhqNTkgybeNfF+dHGk21pN/OuLYoHfXsz+avZLf+Wa/n/Q1MPJxeSL
pr5o6ssxqePx7tSs/7HF1CNN/L+jmPjXX4z6pFn/dxaTD7nZHx3htHWfj+s9
20/fsSnF9WuE91RNvdeRbtfkJh91PM52TT/QxN/xxQv76TdTXx7rpePLb9Xk
o45ffkGzfu8qju29Ljfrp8lfTf5q4kUTH+8uJp91/DhbNK8npGZ9dSzHjZr4
0uS7Jn80631icZS7mZr11aynpj68p1pfTf3T8eOs1qyf/nH/jx9/UjHpqZmX
dCzHmKYeauL15Or5Nc8/tZj6oSNd1mv6q+b5T6meVxMvOsrROs08l5v1eG8x
8ZSbeU6zPpp+rqm/msc7tVo/TT/VZ8V6avpJ7tju3Zr8fl9q+m+7qZ+a+qnv
iP05rZj40+Svjh9n/OnF9DP9uyj4mvjUrHduXqcV0480+6HpJ5p6oMkvTTzl
ph5rnveMYvJPE2+tPrqLx9zMA5p+rVkvTb6dmZpxRlOPNPGsWT9NPGj6k6a8
vr+Yeql5fk2918SLjnJ6jyZ+Nf1M0y805xfNuD+9mHjS1KfcrIemv2jiS9Nf
NPVVk/+a+DqrWk/NemrWTxMfmvXS9CdNfMxIfXA8gCbfNPGjyT/NemnmR838
0G7qa27WV1OvNP3sA8XkryY+c1PfNPmqyVfNfKDZD018al7PLmbe18SjJl81
661ZP31iBFRu+q+m/mnyXROvM4s5/2v6lY7xY65mPTX9Sn8q1k8zj2vqn2b+
0Kyv5nyjyf9ziuPxZ2nWUzOv5CafNeuliacPFi+NB9CfiOfXnJc0z6upf5r5
TsfyTjm3mHzV34iBTpOfOsrpSk1908SLpt5p1kMz32jy70PFxIt+NB5A0w80
533NPKPZ31nF5FNu5p/cnB81+aVZH0190tQnTf7Mrp5fR7hcpemPmnlKE/+a
+NfU914x9V1343txl47VemjyV9OPND+v5vyl+fk187gmvjT1UxP/mv6vqV+a
/NDUA83rnGLmJU28auJHs3+afqip35p6p+kfmn6uiad2fyfWT5OfmvtNzXlH
s16a+UGTz5p55cPF1BtN/dPU19zEj6afaupvbu7HNPGjWQ9NfdXEl+Z8oFkf
Tb3X5NvcYvJNE0+a9dOsnyaeNOupycfc5Gdu7qM066/JX03+auJPk8+afNas
v2a9NfVLs965mfc0+Z2b1/OKyfd9nrCf6Sea/dLMP5r90cxrmv6rmSc19UGz
/pp+o1l/Tf5r1luz3pr41qy/pp9r1lvTz+ZV65eb9dTUU038a+JfU0819UNz
X6mJZ0090cSzpn5o4ldTTzTrqzkva9Zb058066mpJ5rX+dV6a843+qdRXzTx
qun3mvjVrLdmvXMzz2rqj+Z+WlN/NOdpTbznZr808a9Zf838pYl3zX60m/3S
1BfNfcP5xeyPpv5r8kGzX5r90uyXJl80+6e5v9XMs5r6ozkPaPqDZv5tN/VK
U580+aPJF83+aeYVzX5q6ldu5pl2k28XFLOfmv3LzX5q5mvN+VOTX5r+ockn
Tb/Q1DtNvdOc/zX5lJv909RHTX3UzFO5yU/9pdgfTb7pSJcdmv3R1EvN64XF
zGOa+qjZL/31yCfNfK8ZPzT5lTuWc4lm/zT9S1MPNful2Z92Ux819yma/dGc
JzXnK02+afJLs3/tZv/q/bqomP3R1ENNPmnWX7PemnqnyR9N/mjWv91Px/pr
ziea+wz9TOyH5v01zXlNUx819VAzr+Vmftb0L837axdX+5F7XhQYTX/T3Edp
3j7S1L/czBe5qY+5mUc08aDpd5r7OE085L4yCpLm/q7dzJOafpib/dfkn2Y/
czOfXFIc4Xe4Zl7X7J8m/zTzh+b8o+lnmv3T7Ifm81Oa/dHcT2rySVPvNOdR
zXpr1jc39VGTb5r+pf8R+aV/GPOi5v4kN/PGR4qZNzTzhGY/NPuh2Y/c3O9p
9qfd5Jvm/jY351/N530054Pc3Jfl5rygiY/cxIdmPtXEg/5CLLj+QRRszX20
Zn7JTT4uKKbfafZbc17W7He7mWc0+6mpl7k5P2j2R9NPNfOM5nyQm36qmT81
84ueFl+gmV805wfN/KE5z2nmS818onldWEy+auZLzX5pzmea+qiZF3Oz/pr3
CzT1UtOvNOutmU8066tPi/XVzCOa9c7N/KiZHzX9SzOfaPZDsx/V841bVBzv
Hx7W7piXj8pNPmo+PqfJTx395yQd9eVUzfld8/GOdjPv5ia+NPVex/xwsSb/
c1PfdezfxzX9u92cd3Ts97U6/rjP5Sa+dcTH9TpeRnOTD5p80DHf3qI5P+vo
x7fpCI+7NPWqip+7c9OPdKTPvVX8jFXx890qPtbp2P77cjP/6OgH92v6XRVP
D+Tm/Vgd6bA5N/Nru6nf+zxCPD6iqS+a+pKbeqPpBzri84+54/y4UzNftzva
wUs67tf2aOrZpamZFzQfp9fUL815TMf2HqupZ5p6lpv6pqlvOuJrxvDMvKKj
PM3Rkb7zNf00N/VMR/wsazfza7sj3j6p4zx+tab+ae4nNPWu3cxfmvlLMy/r
WN6bc1Mfq/i7JTf1UUd6rcod89JdVXyu1tTLKh7XVPG4Njf1UjPftzuW835N
fdTx5Q+0m/NkFZ+bNfVPRz/+haYeas6j7Y7f/pimPlbx+4SO/v1kFb/bc1Mv
q/jeoZm3Bzf1Mzfnac3L4tTM7zri/RDNfZfmPK7jvDIxN/cpmvqrmS9zx+dB
jh/c1Ovc1G/N/dyBM/Os5nyqIxxnaObb3My7mnqvmWc19V9Hfiwb3MzDmvrf
bvqDpj/oaN/Xtpt5uN30C02/0MzLVX6sbDfzc7vpH1U+3V7l0ypN/8jN+bbK
r7s1/UTz/laVH2O56S9VfK+r4vu+dtNfqvh+QNM/Bjfvv1X5slnTfzT9psqf
RwZ33Ac+pqO8PjG4med1HHef1Mz3wzP9LHccr3a2m/6mY557vsrPl3JzH1Ll
757cnCeWFNPvNP1Oc1+Sm36n+bxbbs4ng5vzTG76q6afas4zuemP7aZ/avqb
5jyj6V86lufcdtPvNOchzX2Pjnyfr7nvz839kKZ/avqn5j6y3dwH6civq3Nz
X5Sb+6F2c17S9MPc9MfcfD5G0y+r/FqZm7/vkJv3MzT9Lzf3UVU+rNbcN1Xx
v6aK77Wa+6gq3sc0/U/TzzT3S1U8b2g3/U9z31TF+8Yq3jdp+pfmvkhzHtKc
hzT9pYrP7bnpB7m5P6ri8fnc3B9V8ffS4KZfVPG7p4rfcUuL+TyApl8Mz9xn
ac5XmvstzXlKU+8191m5qfe5eb9Gx33AGe2m3mvur3JTzzX1W3O/lZvzTm7q
uebtOx3hsGh4pj+0m/u13JyvcnN+0vSXA2fOZ5p+1G7u9zT9SdOfdOT/9bkj
n7/c7vjfUc19X7u579Oc33Jznms3/a7K91WDm8/Dac6HVf1YnZu/j6Ppj7mj
ftzbbvrpgTP3mZr+rLnf1PRfzf1lVZ82VvVm8/DM+VNz/5mb/l7Vl0c095+a
fl/Vk61VPdnWbu5Hq/qwvcr3nVW+7xrcvB9+4My8oDk/VvVj5LJi+nm7oz4c
1m7mAU3/bzefx8jN/JCb86PmfjU384TmvJibeWN45jzabu5nNfevwzPn3dyc
bzXz0PDM+Tg385bmvKyZnzTnYc38k5t5Jzf3yZrPWw1u7pc185FmntHMM5rP
c+Xm71fl5nzcbuaLdnN+zs3nN3Izn1T15bZ2cx9d1ZtVmnljcDN/tJv5RMf/
/9uadnPfnZvzv+a8r5kn/nvm8yztZt7JzfyTm/v0qn5srOrHJs18027mn3Yz
D1X15+HczEftZl7KzfvFg5t5SnN/r7lf0by/XNWnnZp5KTfzzuBmPtLcp7Sb
eSo3L8tScz8zPPP+t2Ze08xjmvv+3Nz3a+7vczOP5Wb+ys081W4+L6+Zh4Zn
Pt85uHn/IDfvl2vum9rN/KWZv9rN/NRu5qvczFvFI69l7rfazfx24Mw8qJnn
/nNm/tPcj2nef8nNfKh5/0VzfzW4mR9zc/+luf9qN+/XaO67NJ9nyB3/jA5u
3u8ZnuO+/ebczLua94s086rmPi038+vwzDw7uHn/SjPvDs98/qPdvF82uHl/
LTf3h5r7u9z/BJuMhxs=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJzt3H/s1lUVwPGvVFqYaYaJWgkJ+SNTKTS1gi+CKFCIQIS1WYvcbM5qlsu5
2b6zOZrLuRkbjtmc5UZutEZzlsvciM1mNKMfwxbOKMIx0YaujFFkPOf9+d73
vA9nXB+/qH/Ems9eLr48z7nnnnPu/Twy+fNfXnzVuKGhoVmHDw31Xl/664rh
//s19MjyV+hPVV5W/Xm1P9nnC9909tptO+6d+VLff2CPLB3+1iN7Ny8/+VcH
9tDS4S0re//iN8V3TJm3/3+/a/PIkpdt3t8fup/3Mj2yuM/bdkx46K6bHy/m
8/2p+/0Hd++nTXjoiQN75PI+E68/H9hDlw/PnN77N9tSE4+/pn6q93FWby/m
8/4t9W3/vGf9jOlPpY4/fvPOA3tkURePp5v9xAPXbn3g2l3dzzuYLyt+MX59
vM/E95k+Hxa//5X75tVLdl83/u/d+1kwfFwvvEt2d55/ULN+ub+47uj9IX+u
mN/+fPExsSD/6DyvWz+94qarez+h+Ce98Gx9oZj8/lfnS4ePvHLhhk2n70nN
eu0tjj9uwn9SE69RX9LF67/N/mHv46/X7IcXm028h4bx3D6fccMF+99ybtYj
88XDvXd75cLDOs/pM+s1LvVvl5984q7Zbyhmf476om5931jcW439b7GY9R3c
39u/m7esPLzzrMrDfSZ/Rj2jy58jhtkPH+3y5c3F1IPc86NAvaXP/PwLu3wb
X/xdEqQ4wr3hyGLy7a3Fc+IDH1X86V64V+SOn37l24oJ99GNPr/P5KN+Zna8
odTk3zHNJp6a/Bz1eX2eF/F9e3Es1w2aejPq6V38jy3+QSx4u8l3Tb6/o5h8
18/FemrqyYRi9oPurd5NV2vqn2a/HFdM/usI5zb9zUiAd3Y+p8t3/YtY3+OL
f93j2Trezjr9Qq9dbtHUn4nF8dvXTuzy/8w+U09OKP5GlPPcrNeJxaxHbv7v
JxWzPpp+qtlvOsaLO96Vmv2o2W/vLmY9NNv7PanZn+2mf2j248nFf4n6pcfH
hphUzHpNqj5Pbvajpv5MLmb/6csiPzX7MTfx0pGeD+ivxgfQ5LcmP95bzHyo
74z46di+12nyR1PvTilmP5xSxfuUKt652T+52d5Tiuk3mvqgI91u0tTPKdV6
aerF1OKlkfBTh4NDp3Xrob8U8dfEOzfxf18x87RmPXSk112aeqqpR6cWE39N
/DX1SBPP01IT39zEV7MfdHz8HZp8P73Z5LcmnvrbEb8zqvhp5gVN/mrqu6Ye
vr+YeqjJR028ziym/ukZkWCaevCB4ijf92jySX8t9rOmHp5VTP7o78Qb0NQ/
zX49u/iX8Xk1+aPZn5r6rw+Pz39Oauqnpj5r4qUjHOs1+aTZr5r80sw7mno7
rfp8mnzTV0RCa/qfZl7R5Kdmf2leP1hMvmjio6m3mnzVxEMTD0190Hz+DxVT
33S8/Ws1n08zj+l/99Jll+Z1ejH5qakXmnzVfH7NftWcPzT1W/P5NZ9fs9/O
rT6/Zr01+a6ZhzX7U1OPNMdtzTxxXvX5Rz2l+/ya/aGZbzX9QLNfNPmhqW+a
+Gjy/8PF9LfcxENTDzTx0LyeX0z+63j7MzTzh2Y/aPJBMy9r4qGJh6ZeaOKh
qYcXFHMe1ZH+szX7R5M/mv2kiZ8mfjq4KTfx1bxeWEy+afqjJr808dTUG008
c8dvf0STb5r55CPF9FdNfdLMW5r6qyO8qzX7UTP/auKlOS/p0XuHUZOfmnhq
5kt9UuxPHeV/paa/afZv7h9HPPW5Ud808dWcd/XPIp818f5Yavqhph5o5h/N
+U1THzTzkWZ+0V+P9dC8zihmPtbkq2be1FMjvvqcCKimP2j2v2Ze0MxHM4vZ
/5p4ac7nmnqg2f+a/azJT91d1xZzHzFcTD/TvB9Nf9H0F02/y83716yvnhTx
19Q7Tb5r8kFTPzTzhSb/c7OemnlE8zqre53UzSOa+Gn2g2Ze0eS/5nyhWX/N
eUvTvzX1TJPPmvhp8kcz/2jiq+l3mvqsiZ8mfpr807xeVEw+auqlpp5r4qmZ
vzT1VJN/mvzS7HdNfDTzgKY/aOKj6b+a+qrZn5r4aOpHHZ/Zqalvmv2riY8m
/zT9UVMfNfNzbvazpv9r4qk5n2rimZv9qqMcbdHEU1OPNfPYqCd2+3dOMftX
k2+aeGryKzf7WTN/avav5nmHJn6a+OWm3+dmf2vO75r9rNnPmvjmJr65eb24
mH6oibdmf2v6jyZ/cxNvTT/S1ANN/mrir4mnpj5q+o+mHmjmR815XlMfNPHN
TX5r6ocmn+cWc3/SbuqJJv81+a6Jvybemn6Um3qsib+mf2nyX1NPNPmuWR9N
fdGsl6beaOKvib9m/tecTy4ppp9p5n/NfKyJr2be0vR7zfykqSea+31NPmvy
WdO/cpPPmvhozg+a/NTcX2peLy2mPmvyWXOe1uSnpl5o+p+mPmviq6kfmnqh
yU9NPmriq5kfNPmmyTdNfdDkm2Y+0NTTecXMB+1mv+cmP3Nzf6GJr2ae1cwX
mvhq6rGmPmjir78QCaZZj3ZTLzTPzzX3sZrz1tiZeSY3/UGTD5r6k5t80dSn
+cXkg6YfaPabJj8051nN44Dc7EdN/9DsR835R9NfNPOoJn80+aPJH03+aM4D
mvsr/XTkh6Y+atZLsx6a+C+o4q85P2rmI008NftNEz9NPdPET9NP9Gcjfpr4
5f5+xFPTrzX3a7mpl5p+runfuennmvqqqaea9dH0L835Vf885lnNemr2lx79
Ht+oqc+ar+do1lvzdQLN+rebfqjZb5r9pskXTX5o7iM1+ZKb/NHMI5r80Ky/
Zv019Vmz/pr1z83+1PTb3Mw3mvtSzXyjuR/VzDf1+n+imPkmN+upmRdzM+9o
+rNmntSsv+b8r8kHTf3Q3NfqEyI/NP1c87wlN/mhqc+a+VWTP5r80Ky/5j5Q
c3+sfxr1QHOfrGN77srNeVcz7+ZmvRcW019HfUzXXzX5oDkfa/Z7u8kXzfN9
TT5o+m/uSKcVmv6rOe9p1luzvpr+q6kPmvlMc5+hua/X3GfkZt7Skb5bNf1B
M3/lph/kpt9flprzoiYfNPNWu8kXTT7kpn5o5gvNPK+jnS/JTb5o5v/c5I8m
fzT1ITfzmub5qCZ/9FmRL5p80Ky/Zj9r1rd6P0csKmZ9dcybR2nOtzrOJ8dr
5gPN1x81+ZE73u5kTT3R9JN2R7k/U5M/uZk/Mg/1mX6leRyi6V86+vUCTf3S
0b8X6VjfZZr8zB3r/zkd6XCV5j5X0/9yc17RkU/X68inG3PH+eGW3JFPt+uo
J6s059/ckT5rNPOYjvy5V3N/pGP57tf049xRbx6s1v9hTf+u1n9jbua5Kj82
5Y7y85imP1T58EfN+UHH9n5Sx/y8XXOeGDszb2jOI1W+7M0d94X7NC+XN5t5
Njf1TFO/NPVLU6809UpTr3LT3zT1SVOPcsf8ME1Hfp6n6Ye5qU+a/qgJv2a+
1tQjTf3RzN86zh9XaeqPjny5RnM+yx1v5ys68ul6HdvpRk0/1sxzVT7coqPc
3Vrlx+3tZt7X1LN2U990zNtrqvy7u8qn+6p8+VFu5s92Ux8194ua+4vc8eMe
rvJvg+Z5no5++Njgph7m5n4ld+Tvk+1m3tLU0yr/d1T5/GyVz7s181pu/nPE
Kt/3Vvk9bnGzmf80/7mYpj7qOO8cm5vzQG7mRc15Usf8O1lTPzX1U3O/mJuv
f7ab+U4z3+WmnmrmvdzMf5r5Lzf1WFOP2x35vUzHPPAZTb3W1Gsdy3ONZj7U
1GPNfYlmXmw35ynNPJmb+q6572039b/K/9uq/L6jyudVmnqcm/kzd4x39+Wm
fueOcD2Ym3qcm/k1N/W6yueNmvk1N/Pr2Dny+/dVfm/Rj8f8q5l3200919yX
6Ei3ndV+eLbaD7t1nJ+er/J7T5W/+zQvS1JH/o7LzXzbbs77mvO+pv5r6n1u
nsflpv5r5m3NvK2Zt9sd96unau4DNPN2buZtHcfJaZr+oPm6dG76haZfaPqD
5n4zN/2j3fSTdtM/NPO+pn9onr9o7htyM/9r5v92029y0z80/WJw832V3PHP
kWo/3pyb+7+xM8+Dq/16e7s5r7Sb/peb80u1v9dU+/VuzX1NtX/X5qY/5qY/
Vvt3veY8o7nPyU0/1NzvVPt3Y276Ye7Y349q7nc055exM/0zN/fJ1X7fqumX
mn5Z1YPt1X7fWe3nXYOb85Omv1b7d29u+uXSYs4/uTkP5aY/as47mv6m6Ve5
uU9qN+cjTf9rN+ep3PTHdtM/NfdVmud5mvsrTb8cO9NfNc+HNP3y1TPnOU0/
1fRTzXlM0z8192OafnjozPMAzf1bbvpxbs5vOv45ojmfae7nXj/mvNhu+mlV
L1Zp+me7ed6cm+eJuemv7ea+sdr/66r9vr7dPF/RnF8151XNfaLmfFrt943V
fn80N+fLan9uHtz0U83zmGq/b9XcJ7abfju46c9VfdlRPPRyTX8+dKbf5+a8
rbkv1Zy3Neft3Pzy74XkvjQ352nN/KA5X+dmntDME+3m/N1u5hPNeVxzH6uZ
TzT3s+1mPsnNPHLozHySm/O9Zj7R3A9rzv+5Of9r5pGxM/cHuZl3csf5Y65m
HtLMK5p5ZXBzn5Cb++nBzfyk+f6DZn7KzTzVbu7DNffhmvtvzbyTm/mn+nto
RzT3B1V9WVnVk1sHN/PJ4OY+od3cp1f1aFVVj1YPbp6Xtpt5aXAzT7U7vu92
r+a/t9HcZ+Rm3ho7c1+Sm/uTdnO/kpt5Lzfz3+BmXqzq44aqHm6s6uEjVf3b
dOjM8+rczJPtZt7MzfMRzTyqmS/bzTz5+nW0u+25eZ6Tm/sqzTxa1ftnNfdP
7WY+rfrBnqof7MvNr4P9veaDm/sxzXzbbubfdjP/5mbezc18m5v5VjPftpvn
UbmZjzX3c5p5dHBzn3bozPzbbubjdnO/99qZ+VwzD7ebeVkzL7ebefrVM8/z
2s33jcfOzPeDm+8Tar5vr5nvNc8XNfO6Zj7X3F/m/h8J/jmt
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{440.00000000000017`, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.50847449290625*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{
   {Hue[0.67, 0.6, 0.6], StrokeForm[GrayLevel[0.]], EdgeForm[None], 
    LineBox[CompressedData["
1:eJzt3A3InlUZwPHXlVqaaTbT1NKV5kcf05pLzeajs+XU5nQ6J4FFJhhihSFZ
YLwspJBWsISFLMQYLMGQhawEEZZhDMPeLEya2BtDG37ElLIorXyu//2cP53X
q053z+smJdHDb27uuc+5znWuc517m/eJz1x4xZyJiYmpvScmhp///M+lg/97
vD51z/kbpx/bcPq/9p2Vf1z80Ffu+8vUqp/hyVUzvPaopS/+78HxeKL2JdXP
XznDfN9fFn91+PWO+HXni2d4+LPn3v3IS3ui9kXd8/7mpT25YnD6guGPTBc/
Pvfu9avXbe9+fu0L/63X/PHWTYsWPF48/DbrV/+u2fF1pnYU8/xPdN/vgu75
nur+/UyvXrdi5zX7/D71p27f/8Wv+Ezi5f+xmc9nmz0crRU7NfP/h2Yzvs8V
M35/Kt73smVb7j/uz6lf/MXDEU58/iB+u7nPFzO+Iy8bfG/4+Jv+NsN7hM/r
4uvvxfy8icHIjN8e3Y+fO7j+yuEPZD6nG685xT9fdcShTy5+VeelgwNiQF7d
24yvHo7WdafsWcx479X57Bn+wdXbNl+9beQlg58Of/X8vYuZH818vCb18Oku
vz4360PHL7/utcXX7DP8kZEXzzDzvU/xI5uHD7BvMfP/uuKzLh/OyH6dzxzE
crrs9Z3PGDBc+6cmHkYeDJ5aHP/B4vh6xx1QfGQ8rz5+OJwbNfkq86LB0lhw
b0jNeGniUX8uvpCO8LvmwGLiUROPbywmH+pnYgL0X6eGv0DH4145tzjSxVrN
+B9UTHzqTw/Db7OO4ZrWxOubms386u9EwGji++AZZn2f1s23Jr4PKT4oBlAT
3zp++2VvLv5S5ANNPj20+NsxP5r41szPYcXE9+HFjPfh3fOc3I33W4qDazTj
nfvzMf46lte2txazPo4oZrz0byNfaNaLjul6SO8Vz3Nk54Xd+GrWU7tZb5r1
pRmfecWMj47H3azZv99WzHoaeUHl93bxpsmvmnh7e3H8dldrxkfzeVQx600z
/5r9QLM96osiPo8uvjQCWDMemvWovxwL7B3FrLeRTxh8P35D/aOIl2OK2U80
+UbH19ui+Ty2i/d3dfF/bPnx2L4X6RjejZr9X8fjPKbPj4A+LjXrWZN/Nfk3
N+tfM37HF38tJlwznpr8oMkPmnyuY7jnv7OY9akZXz0a15GpL/RhEW/6pPgP
auJr5KO69fXuYsZTM36aeNMxXLdq6ilNPfye4m/GAtDEnyZfzS9m/WnWX27G
S7M+Nfuhph44oZjx1MyvJl9ovr+mXtI8z4nVeOtIV4dqnlcTz5r50MyH5vk1
+UAzP5r92LxFPtffii+gWa+a59fEtyafa/bH9xWz/2jyi6Y+0nwuKCa/aOZP
k391pJf1mvWpmT/N/J1UTHhq4k/z/TXzoZ+LeNTspwur76/5/rl5Hk3+1DyP
Zj408ff+YuJPk480+4Em/jTPr+Pr3q6ZT8161MSnZn5PLmZ6NfGp2d9zs341
46cjnW3S1AOa9XtKNV6aeNDsL5p40Dy/Jh5OLWa/0axPTTzoo6O+0MSDZn1q
5v8DxdT7mnpDfyx+gib/a55Pk3/0qA4emXJUE/+ael1TP2meT7NeP1jM/Gjy
j6a+0r+KL6SJd02856Y+19Tnmvp0UfW8mv1RE6+aeNUnxA9o1nvmI7v1r38S
8396MeOlqQd0hOtizf6k419frtmvNPlBc97Q9A808aNZf4Ni4ld35XUx+7tm
vDXxranfNOcVzfhr4l+TPzTjr3kezfrX1J+a/HdGMfGjOe9qnk+TvzX5IjfP
r1l/mvWnGQ/NeU6T/zXntdysZ81+oRk/zX6hGa8zq/HSjJdmP9Hkh9zkX83+
oxlPzX6gqXc061uTvzX7h2Y8NeOlGS9N/GnOU5r404ynJp8uLmb9acZXE3+a
8ctNvtOMr2Z9auJTM376k/EAmnyjyc+a8cnN/q8ZL816rcfnrGLiURN/mvyq
6TdpxkMzHpp+qmY/0qzP3MSXJr4046WJr9yMl+bzQ6mJL815WxNfmvyuWb+a
+NKsT009qNmfNPGUm/HVxJdmfNvNeUoz3przlWa8NeOdm3ypWf+aejA39UI9
X0uKqR8086OpJzT5QRPvmnpME/+a87hmPWjyrSbfavJDu9nvNPOt2e80+78m
P+emX6+Zb818a/oZmvnU5CfNfGrmU9Pv+3Ax+Uqz/jT1lGZ+c7M+NfOtqU80
+6cm32vWo2Y9auYnN+tPM3+a9ac5z2jO75rx1oy3Zj/V9N/azX5ydmrmRzP+
mvOcZn1p8qNmPbWb+dLkU039qJkPzf7TbtaXZj1p1otmvnJ/IRaQZv4060WT
/5am5vyuzyHgi5kfzf6v+ema8dbkN81452b8NflQU29q5kezPnJzftPU85rz
nKa+0uxXmnymqa8086H5PKeY+kGzP2nWS27mS5PvNP0/TX8mN/cdmv1Mk/80
861ZX5p8qDmf5ma+NfOtvxv5MDfnW/1EzHdu8qVmPWrmu93cj2nWpyYeNOvv
3GL6S5r6RDO/mv1Kkz8161OTTzXzm5v51cyvZn41/TbNfOamXtHxr9dp9j/N
/Grq/9zsj5r8q8mvualH28385yY/aOJBk5/PS83rIZp+kiZeNPGSm/jR1Lua
84kmfjTxoulHavbr3MSLpn+pqZdyEz+a/UATP5r9QLM/5yZ+NPGjqX8195ea
/KCJB/181GOa+ktTX+Wm/v1IMfOr2b8186uZX838auYzN/Op2e8151fNfq+Z
z9zMr2b+NOs9N+/fac4vmvnTrH/9w5i/3PTLdSzHJ9vN/qCZ3/4mXyxLTT2e
m3jS1COa/KLpD2nySX9TX2riVT8Y8dpu4llzHtfsZ5r4zE19qslX7eY82N/U
Q5p8l5t6V7MeNPlNsz4060Nznte8v6XZDzXxnpv9T1MPn9/bxK8mfjX1syY/
6q/HA2riUdNO1YRTf1NP5yZec3N/pYnn3NRrmnhuN/Go6T/lpj7XxKPm/KU5
f2niTRNfmn6GZv/Mzefy1FGfzslNPtXEn47n309T3+eO9Xqwpp7TxKtmf9e8
PqWJZx31zIk6fvvTNPt/f3MfouP8dK6Oemi5jvlcqYn3dkc99dHcrI/cET8f
15xvcke4XaGpbzTrKXfkty/mjo/JKt5W6+h33qBZf1X83aipn3Ts79/IHfny
pioe11XxeHMVj7e0m/Oaju1rg6aey009PvIhMxzlwZ066oV7NPuXjvJla+4I
lwdy0w9qN/mr3fHLH9acH3TE86OafKjpR2nyo477t6d1xOuzmj8Oo6M/80Ju
8uMFxeTH3PxxCU3+y00+7O84rh2uIx7n5Y74O0ZT347P5Gsd9diJuaM+W5ib
fK6pl3WUG2fkjnSyRNMv0hHPyzXn/dzk69ycF9tNvm43+VtH/F+luX/W5GtN
vZ87Pib7m/NAbvK7jq93Y27yuea8rMnvOurhm6v1sb6K/41V/N42PnM+r+J9
kyaf56Ze1PHL76nie4uOeuXe3LxPq+n/VvE/pekPVPH9cLvJ51X8Tlfxu11H
+b0jN/k9N/le02/Q1Me52Q9y03/IHcvxhWo9TFxYzP6Qm/o6N/tJbvobueM8
faDmvJibelzTD9HsH+1mf9DsD5r7m9zU97npr+gIv4Wa+wLNfqLZL3TUU0s0
+0Nu9ofc7A+5qe81+V5zvtXU5+2mP6nJ95p6XXMeHp/jY1JT/1fr4YYq/m+s
4net5rytuY+u4nWD5n2e3HGevKOKpzs19bYmv7ab+jw39Xm7o9/3QG7yd27y
c27q7yoep3Ucj7dr6vEqXndo8nUVn09r8rWmXs9N/m43/bcq/uas6HzADJOf
Nf0OTX7V9DvaTb2uya+5yae56Zdo+iP9TX5tN/k3N/W8Jv+2m/ysyc+56c9o
+uOafo0mX2v6N5p8rcnXmv5Lu8nvmnpe049pN/uDJv9r6n8d6+Pa3OwHmvcX
cpPPc1Pva/J7tb7W5Kb+72/6PZp+z/jM+SI3/aHcnEfazfmiWr935KaftOvM
flrlg8067h/u0uy3mvua3Oy3Ovq1W9vNeUhzHqrywy+q/PBQlQ+2Vet7Ojfn
n2o9P1at5x25Oe/0N/ttu9l/Ne93aM5Lufm8KDX7r458sbfmvKPZf3X0Aw7U
9NfaTT9Nc/7JTT9Ns1/nZr/Ozflo9sx5q7/p1+Vmv589cz+Zm3ohN/c5mn5g
u6kncnPfmZvzoqbe0NQb7aYeyU19ouk3auoPTf2hqSfaTb9xfI7h+Wxu6hkd
+eja3NQzmvNpu+Njst30O/ub83Bu6ilNv7TKl2uq/Lg2N/3TKj+u0/RTNfVN
lR9vqfLfBk09kpv+aG7qB039oKOdcVe7eb9t9ky/VtOvrfLLfbk571f5Yyo3
9UmVDx7OHfng0f6mnqnyx/bc1C/tpl8we6a+qfLJs/1NvVPljxeq/DBxcXEs
nzm56T9o+sGa+kfzPpCmvtH0GzT1jKZe0dQnuakvNPVCu+nvavoJuakHNP3d
3Oz/mv5BbuoDTT9hfOa+MTf9CU290N/UA5p6IDf1gaYe6G/qAx3l9VX9TT9D
Uw+0m/6Gph4Yn6kXNP0PzX7dbvojudnf200/pN3UA1U+WTc+U09o+vftpn+v
4/h+W276Je2mPslNf2N8pr7R1De5qWf6m/5KlQ+3VPnw3nZzn1Hlt62a/kpu
7i+qfDalqW9yU9+8fKbfo7kPyU1/p93UQ7mpZ3Jzv1Llw53tpr5pN/ctubl/
qfLjnJXF1Dua/k9u6iFNfyg39ZLmPkZTL+XmfnzXmfqtv6nv2k29p6nfcnN/
pKnfNPVbbu6HNPf1I0/816YezM37ZOMz9aWmvmw39aOmXmw3/SlNfdlu7sfG
Z/pdOu6jV+amftXUq+3mvq3d9MPGZ+rhdnOfp6mf+5v3AXNTT/c39XW76df1
N++r6Pj/SU29rXmfvN3U3+2mHtfcV+am35abeltzv6jpt2nuDzX9Nk3929/U
w5r6Nzf1bJV/76ry7d1VvrwnN/d7uak/x2fq19y8H99u6tfc1K/t5r4xN/Vp
lQ+3Vfnu0SpfTVf5aHt/U7/mpj6t8sPOdtNfy019qXl/f3zm45Kxmb/fR/P3
Meemns1NfTs+c5/a3/Qj/3fN+aHd1Oua+2VNfZ6ber3dvC/28pnzQm7OD7m5
b959zXlGc55pN/fZu485H+XmvNPfnHc09+3t5ryz+5rz18tn+v+5OX+1m+O5
5jzWbs5juTl/9TfnrdycrzTno93XnM9eueb9jd3XnEd3nTnPtpv3VzTn3/GZ
+6vcvN+reT9F8z6K5nw8PvM+S27ut8Zn7r/azfm93ZzvZ8/0C3Jzf6Z5n1jz
5xfbTX9A875Ou7nP0rz/q+kXaN6nyc39leZ9mmp/3lrtn/f3N+f93Jz32815
v938eZ520w/QvM/T3/QPqv12u+bv/8rNfVa76R+0m/ed202/QXN/VTxBv2H3
MX/+dNeZ95ty88+q1LzvpLn/62/6Ja8c02/ZdebPA7eb/oamf9Fu+huzZ95n
yx3737zc9FPGZ/ots2fev+tv+i+afktu7nNz/wO12rGo
     "]]}, 
   {Hue[0.67, 0.6, 0.6], StrokeForm[GrayLevel[0.]], EdgeForm[None], 
    LineBox[CompressedData["
1:eJzd3Q2o3WUdwPHbKiXNsjnzLZsrTWflW3Op2XbmdL7VnE6nFli4BEOssCQT
jIshi5EJNljIQixhCYtYyEoahhXGMmy9oKMr69aaiNOa0kw0q3t+33OeLz63
Hz0ezp3LS3D5xO7dOc/ze34vz/+sZl352YuumjYyMrJ575GR7veXf13eeU17
9LI93qe98fi149vvnv9y39vsR1Y8+MLmy36CRyqPXvqKze//eeqvdv/4zF/2
vGyS+X2/7vmSl3vkkt7v+32zx7fP2Ljm5keL+fv+0Pv9F3e6f3rGxseK+fv+
+N89Mtnz53T/m/Hi2488d+I/f+79/NJJfrz7clZv6/35yqMX9V7/X1Lfuuuu
9fPmPN7zhf/DSyY5Xu7mJ9o8UnvxJLOeTxY/tuHasQ3X7pj/7/j6yCs2+/HU
K/br4u+f7JtXL9153T5/LWb//tZ7ved1Duwu/9KdPZ8zyeyv/vS6t04s6TOp
+fFni/ePDfh7MfuZm/16rpj4/UfxvlcsfuCh2c8Xs/4v9Hx2Z+KHuy+4mPV9
MfX3ui9//b+Kef8jnb6PveHUiVeYm/Xpe9EkE//TUv/mspmH7lj4+mLOg35x
c/cPaNbzDT2fNcmsZ99nTvK3Y4H26nlh51ezu29o72LWu+8zOufFC35T8XX7
dDdAs/77FH+LgCtmvfct3hm/QBOvb+55QeczY90f2K84ftsVbylmv/rudCaC
YeINvLX4qYXLb7p6nY6XO3v/1EdMrP7ymzTnW7Offc/rnBvr8bbU8etv0JyP
3J+PF6Tj+Fw3vfi7sSG5OW/TO5zv03vxdEBxLOe1+plYf018HdD7fad1Ijxv
n9HzKZ14O6cemHhu5/LuX7dcx+rfqr8SG/j21LEc6/UPuy93TBOfBxWTvzTx
2vecznPd9PGIjh9fe3Ax+6vZr0OKv9x9+bs08X1oMedXsx+a/ej7pA4/flgx
50HHy1/d9wmdOK4z3lHM+daHdcP1as1+5eZ86TNjgw4vZr/0F7vLNX54Lz7e
18vH7yzmPOp4O2Oa/ZpZzHnU/D1HFPP+dBzHqzXvR7N/k83vPab3/mYVx8td
rNnv3JzHdkd4jWvi5V3FxEvmIzvfjBeoOf+afK2JN/2DqHeafPjuYvZDkx90
LPc6Hdv9iGZ/jixmf3Qc/5s09UZTjvXFsR9HFZMPNeurWV/N+r2nmHqjWS/N
edSsx9HVemjOZ27qlyZ/avqTY5rNeuqjIt41+avvI3rxri+IDZ9dzHpq1i83
63lsMec7N/la029p8t17i1k/zfrpLC/0TT7UxKMmH+Y+OdZLE5+aeHx/caT/
uzT5UEe63KU578cVE3+a86mJR009O774T1EQNPGl+X5C9fdr8rVm/zTxpnm9
mnyr2W9N/OXm/Wn6oxOLiVfN+283/XFu6r9mvzTrdVIx8aQ5b5r6qcmvH0jN
+9X0X/pT8YI0/Zgm/2q+z6lev2a/NedZM8/kpv5o4kMTDzqWY41mHspNP6ep
B5r1Ojk1/aWmXmvOiyb/aeYJTXxozpcmXvReEQBzi4mX3Jy3vg/urafmvGnW
V5MvdKSf7Zp5RJNvP1jM+mnOm6Yf0uRnTT+o6Q80+VuzXprx75Ri8rcmXjXx
qul/NOdRsz6afu/U1MyvmvXQsf0LNflGE2+5Oc+a9dGcZ83304qJL818qr8W
v0DT72jys6Yea/KxPivW50PFxEtu3q6mXupPxB/QV8Z6aM6fpr/TnD9N/Jxe
THxo8pdmPTTxoX8c719zXj5cvV9Nf6gfjXjQ5PPczKOa+pSb86W/EOujOV+a
/nFeMedJk480+UjTr2vyuT4h/gvNfKeJJ816zS/mPGnyjea8aOZDTX+q+d5J
zfnR7Kfm9eVmvfQ3It40+UCznpr406ynph5q+glN/6R5/7k5L5r7Ck19qNdr
QTH5WNNPaNYvN/GniT9NftWsn6beaNZPk1818aqpn7lZf83652Y/NPlTk680
66+pN2cU/yLyi2b9NOuXm/XU5F/NvJqbfk6TnzTrqVk/zfyZm/5KU58166mp
h5r+SxPfmvyiyX+a+8OFxcSvpn5q1k9zvjX9pWa9NPGoyV+afK6JP03906yP
pv/X5ANN/6xZL01/qMkHmnyg+X5mtX6a/JibfKmJP02+16yv5vxr1ldTPzXr
q6mXmvXUrJ8m3nJznjXxpvl+VjHznub8a9ZTc/415zs38arptzT9j2Z9NfGr
WV/NvKQ5/5r+X3P+Nedfsx+aeNfsj6Y/0+yXZn808a3ZL018a74vKma/NPlZ
sz+aeNfEuybeNf2pZr809U+zH5r9yE2+0eSXdrM/mnlBU98084om/2jWOzf9
+9nFnA/N+dD0C5r4zk3/pekfNOureb6niXfN/K1ZP02856af0MS/pv7lZv01
8a+5r9TEvyZf5WY/zqn2Q7Mfmn4kN+dDk790hNc8zXnR7Gdu+hdNPtPsr6af
0ZwfzX5r8plmvzX7q+lvNOdHs9+a/dXkN00+05GOdmi+n1tM/tL0P5r91OQ3
zX5pzpsmf2nqt+a85ab+aPar7/17+6HJZ5r90Dzf0pwvzbyYO9LVBn1cbHBu
9kvz+QbN/mnyY276M81+a86v5vt5xT+N/c7N/mrOr6b/1fHjx2vukzT9hub8
auJBU88095ua/k5zXnOTn3MTH5r4yM3zG835zf1kxM/gJh9o4kmT3zXxpMn3
uYmn3PT7mu/nN5v7wNyx3TNz0z9p4k8TX5r40tSHdpOvNP1WbuqLpr7kJp71
d6J+aO43NZ/fyE28afoxTfxo+mVNvGjiY3ATP5p8lJv40vR7ufufM+yb+qW5
f9LEjyZ+NPVL029o4is38aOJj3bzPDk3+U7Tj+hY/hW56T81825u8pumPuYm
H+VmHtPkq9zEU+4vRXzpf0Y85eZ+PjfPC+t4+mgx8aOJH02/o8kHuT8WG5j7
kNj/4Zl+SRM/mvsQTT+bm3jS9LftJr40n7fMzf1Vbp5naD6PkZt40j+Khk7z
eQxN/5ybeUgTT5p4WlxMP63pt3KTnzT5Sf828o8mv7Sb+NA8H9XEiyZeNPc5
uemvNPlGEx+a+UjTf2viQxMPmnyjqW+aflpTr3LTX2v2X3OfrKlXmu8XNJt4
0dQzTXxo+nPN8+jcxJP+eiyIJp9p7qc0z9/aTT+l6fc1856OH1+u6ZdyE7+5
mQdyE9+afKeZJ9tN/GrqZbuJb828qZkvc1N/Nc+bcjOPtpvzpDkvmvOgyY+5
+b4kNfcROtZ7Px35Zbrmea3mefzg5uPNmvOm4+3Myk3/oGO/j9b0EzrC50Qd
b+d0zXnU9J868t8izfMoHfVwiaY/0czfOu5nP95uzvPg5r5HR3hd1W7yg455
4xpNftDc72ryQ27um3Tcn9yiyR9V/K7MHf3AbZr+Skf+X6Wpn1V8rqni884q
Hu+q4vHuKh7XaubHKh7X6wi/ezX3k1W8bswd8Xu/pn5X8fyzKp4fzB3Ha5Nm
ntARXg9r8lfuOA+/q87Dlirex6r43arJh1U8b8sd8frE8Bzz4tO5I96freL7
+Tr/XlhMP5I74n1vzfOAdtMP9z0yyXEepmv6IR3n4SBNvs5NftbkZ83ziNz0
3zrif267yd866vUCTb+k6Zd0xOuS3OTz3OR3Tf7W3FfpiOdPavJz7niedFVu
8nNu8rXm/qPd5HMd90vX5450cqOmH9TMO5r8ruOvW5mbeaiK79uq+L69iu9V
VXyv1tH/35Gb/N9u6kEV7/fkjvnh+5r+VJPvc0c5uV+T76v436RjXn04N/lb
M99X8T3W7oj/rVX8j1fxvL2K3ydyc99ZxevTuemfc/PPnzX9tCaft5v7Cs23
i5pNPdDUA03/njvOx36a/J6b+VfTj2v669w8r8pN/52b/K8jfOa2m/zfbvp7
TX8/uKM/Ol9zH6SpJ+2mvmjqS27qi6Z+aOqFpj7kjnC4pngkXs7nNPdZOs7L
9Zp+vt0R77do+nlNvtfke819WLupB5p8P7h5nqmpB5rnSe1mXtDMB5r5QMc4
dV9u5gPNfYam/9f0+5r6kJv+Xsfn77e0m3rRbuqHjuO8TXO/qKkXOpbv6Sp+
d2nyeW6+lqaO+J6Wm3yem3yuuZ/R9POa+5p2c5+j6fdzc3+j6f9zMw9o5gFN
/Wg39zmafy6qqSeaeqJ5vpib+yBNvWg384amvmjqRW7qR27qSW7un3S8/WWa
epGbeUVzf6SZVzT1JTf3R+1mPsnN/ZKmHmnqj+Z+ScfzgxuHZz7vUp3vm3Nz
n1Wd9xW5qX+5qX+aeUdT33JzvzW4ud+qzuc91flcl5t5Jzf3Y+2O5yv3tZv5
qTrP91fn88HqPD6Um3mpOl9bqvM1Vp2vrdX5Gs/N/ZZmHqrOyw7N5z+q8/B8
Fc8v5I74fqmubxc3m/soTb1qN/PJ4KZ+5aaeaeYdTf3S1C9NfcrN/Va7eX6Y
O55fnaipb5r7ME09mzpT/zT1T0c6W6SpZ7mZf3JTz3JTzzT1bHAzT+VmnsrN
PKWpZ4Ob+zfNfZumPuXm/i13fI3m5r5OU68081l1Hldp5qXczEua572Dm/u3
3NSvwc39naa+Ved1fXU+N1TnaePg5r6vOn8PaO7/2s39oGa+y02908x/ubk/
rM7rlur8jVXnbaum/uXmPk8zz2nqn+Z+LnfE+7RLipnPNPNZu6lvuZnPclPf
clPfNPd5uZnXNPUvN/UvN/VPU98GN/Od5j4xN/Nfu6mfmvtEzXw4PFM/2019
zU29bTfzqGb+1Dwf09RnTT3W1EPNfJib+XBwU19zU2/bzTypmSc186RmntTU
Tx1fo5r5T3O/WeWTFe2mvlbnf1Vunm8Nz9TrKn+s0dTfdsfn5+7OzX2oZr4c
nqnXuZkvp87c5+amX8jN/W5u5tnBTT9R5YdN7aZfyE3/MLjpL3LTb2j6DU2/
UeWzrZr7ZM18nZv7ZM3nQXLztSw198Wa/iM3/cbg5nnh1Jl+RnP/rOlfNP3K
4Ka/0fQzmvle089o7ptzM59r+gtN/R/c9AOaeq6p57mp75p63m7uk3PzfFLH
eVs2uJm/h2furzX9RLvpF9pNP6HpJ3Izz2v6DU2/oZnn2x1fo+2m36jyw8rh
mc9z5+Y+u93cd2v6n3bT3+hID3cMbvqhKt/cmZv7CM39QrvpZ6bO9ENVfluv
6UeqfLWx3Xw+dXjmvl7H57M3aT6vquknctNPaPqHKt+MDc88D9Dc/1f5aVtu
nnfvPvP8QdMPDW76pypf7qzy5bOa5xu5ue/JzfOOqTPPT3LzdWlq+j/N/55A
u+kP283zmlfP9ItTZz7vnJv7NM3zIU0/qeknNf2kpp/U3I8NbvpPzf2Yph/V
3G9p/v1Zu+k/h2fur4bnyP8LNM+bNPdZ7ebz4O3mPiw3/XFunl9p+tfc9LOa
+zXNfdjwTH+7+8zzruGZz69r+u/c9OO5ed42uOnPh+f4GtU8n8vN/eOeY+aN
qh6sbDf3oZr5IDfzQm7mg6kz88HwzDyRm/miqidrc9Pvt5vP6wzPPC+t6te9
uZk/cvN5n6oebdTcb/7/mOe1ufn3x+3mvnZw8/mndjNfTZ2Z19rN/XBu5r12
c39c1dPtg5v5anAzX+0+8+9tBjfzXm7mP83z/XYz/+255vMHueN68qXcfF7B
/59V/v1Qu5kHXztm/svN5y92n5kv283zkHbz/EMzr7abeXbPdTw/ntVu5m/N
PK35vMnUmfn81TP3Abl5XpWbz8PsOeb52NSZ+4o91/zvL+bm+WDu/wDUfbWz

     "]]}, 
   {Hue[0.67, 0.6, 0.6], StrokeForm[GrayLevel[0.]], EdgeForm[None], 
    LineBox[CompressedData["
1:eJzt2w+on2UVwPHrSi3NtDXT1NLVzD+Z05rLmW333vlfm3+mUwssNMEQKyzJ
BONiiCHJYAULMWQxMGEhC1kNlrGMwhZmFlNQbLVWo2lMKYmp0X7n+97ni892
8Onl3uukRBwf9+/+nuc855znvO+defUXLrl22tDQ0GP7Dg0Nfnz1P1cO/097
7Ir/2qftPfu+TVtWLtith/r6wd177PLhjXf8YsdjV/y0zUP1zy/p/ryfp/7G
4Jcf+avu99e+7NUeu7T783/T/XzlscXDy2adu/Pfx4v5+35fvGnLjHX33PZE
8eBnZ6x7uvvzdjV//h9277GLhxfMGfyfTcX8/X9q9l8GX87yzd2ff3H39f65
mK/3r92vv2g4/rrHtu7eQ7ua9ftb8dNrbnhqzQ3bOi/qPu+zC/YKX/Cavm35
4u037vf37vefN3zw4MtfvL3R53brNe5zKp/9Gj5rF39u1YF3/XPF8z195i5m
f15Izcdp90E7//TV8/9RzP6O+4zha269bvAVFMcvn/Ni8Y8G2/VUf+9/1aL1
G477V+eFXTzsSL3zLx8scDHx8lJxfPkzXu482sVHbuLl38XH3zxv5x8xNDzu
wc9etWiv1OyPZrnGPdLtz7Rmfz8OlGa/NOfxTcXs35uL2T8dH2fT3qnZz32K
2Z/cLw5++cZ9i9m/txRzvsc9PBw/ffNbiwert36DZn/3Kw4etn8x+/m2zvOH
D9+2cGdI5mY/314cvEr/YLBdq/Xgq5u394HF5IODijnPmv1/R/GX4vNo9l/z
+aYXs7/Th8lXp3ef953dz5+6i9nvcc8dfmnw09s0+z8jNfE+7jldfOgz4oAf
nPrKnX/bwmtyf34QHmv012PB31VMfOnvxQHOHcdptf5Z7M8hqak/mv07NHV8
+bdq4lWz3/q8OKDvLv5a7K9mfw8r/m4EYG7yl+a3H17M/mr264jUF0YAv6eY
+H9vcaTHpzTxfmTxrwecrZ8dHKdVmh+PKt4nwkfHcl6nj4r/oSO9LRv3h7v1
zs36a+JxZjGfV1OfcpOfNflPs3/vKyYf6+/EgdfEq2Y939/s3w62d6GO43OD
/mPEs+bHWcXkW008a+qXZn015VNHep53dPGlkd8066fJd5r11Jz/D1TrqyMd
3aM575p6oznvxxQTr5rzr6lPmvU6tjj+uvma/KBZT836aeLxuGLqgabe6c9G
POr4eGs063V8MflCE2+a9dL0B5p88sFi7gOa+NLkG015OKGYepKb9dLkJ815
/VDxJ+M36EinK3J/JeJLE08npqbeaOq/juW6UROPmnypWV9N/M2u1ldTrzU/
nlStnyZ/avKnZv81X6/+YRxozderyT8nV1+/Jn419V3zeXR8uas0/Y6ufySe
NPlVk19zE1/66KgnOj7OfZrzqjmvHykmv2nyr+bzavob/Xw0sJr8p4nHOanZ
f03+0Zx/zX5r+ldNP6H5/Jp40L+M/HBKcYTHbM36aOIhN+unyS+aeNHxx6/X
5GtNPGnWb261fprzrek3NP2v5rxo1kdTbz5aTPxozo8mv2nqkebza+qnJn40
5+XUYsJFU78050lzXjT5Q3N+NOdn3Cd19UWzXjq+3C2afk2zXvOKo7ws1OQb
Tbxo6qWm/9DET27qmaZf19Tb04pjO47T34z11qy35rxq8rdmvTX3PU08avod
TTzqM2M9P1bMedXUH/3p6D/01bGemnjU5DfNemriU4/fW8fNfeP07v+f0K2n
Jn4151eznpr8r4lnTX+riVd9SiyIpt/VEf6zPl78RKyfpj/R5Df95fiAmnWY
X0y+0t+K86mJj9x8Pk2+15xHzXnUnEfNeVxQzH1Wx/G8RtO/auqh5nxp+ovh
Yu6HurseV/GRm/yam/qkOX+a+qnppzT1QVNfNfGkOa+a/K2pt5rzojnPudmv
3MTXSLWfmnoxUq13bu5DmvqlqSea/KKp/7mZx45U+6GJL038j1T7o4m/kWq/
NOdlpNovTX+k6TdGqv3IzfqPFlM/NP1UbvLBaLX+mvyomQ+MVvsxWu2HJl+O
VvuhOR+afKbJr6PVfoxW66+pZ5r6rOknNPVmtFvHY7vzpak/mv3T7Fduzpsm
P2n2Mzf9pub8aX5c2GzOp+b8afKdZv6iqReafKepl5r91uyv5vxp9ldznjT7
k5v7T7vJj5p+R7N/mv3T7JdmfzT9xxmp2Y/c7M+4Z3X9gab+aPKlpp/JTb+b
m/OrOa+afKm5X2j2UzP/1JxfTb7UnE9NvtTUO8350+ynZv6j6Q/OLCZ/avJj
bvJlbtZbky815yM38yDNfUSznpr11OQ/zXpq+mnNemniX5OPNOt3VjH9lSZe
cxO/mnqjyT+a9dTkn9zkI03+yU0+0tSf3MS3Zj6oWW9NPdHkI03/rMlPOpZn
o2a/ctN/a+6bmnnC2cXkJ028a/ZLs1+5iXdNftHMRzTxn5v+TbNfmnykOR+a
85Gb86LJR5r91JwfTT7KzX5qzpcmP2nOW70/5xRTLzT9nea8tZv8pdlvzXnU
7K/m/Gn6QU090Zw/zfnSnC/NfCg3/Z2mP9DsV7s5T5rzlDuWf9u4j+r6A02+
PLeYeqM5b7nZD836a86Lpl5rzotmvTX1RXM+NOchN89n200917x/ocl3mv3Q
rH9u1j83+TA3/ZwmX55XzP5p5heafrrdzM804xXNfmvyqSafauJBs/+afNlu
4iM351UzL9XczzT1UnN+NecxN/HTbvKvpl/MTbxp8rUmX2vuB5ofzy+mP9KR
Ho/MTX7WxIum3mrys+a+rsnPucnXmvjJTTxp5rua+VZu4kcHl2viQVN/Nf2S
Zn81+5eb/dQ/ifygOf+a/H1BMfczzX5p9kuzX5p+VrNfmvOuqZ+a98ty0y9p
9ktzX9P0S5p5lybfa+prbvpdzX5p+iPNfFxzHvVXY7/Gfejwy3HeNP2SZr6u
2b9PFLN/uam/mv3U7Kfm/q3ZT838RHP+NPeV3Mz/2839UVPvNflaU+81+62Z
97eb/dbsb272W/84zqvmfQtNvdfUd83+a+bRi4rplzX7rTnPmv3VnF/9eOx3
bva73eRjTX3PTT+t2f/c1HdNfOQmX2jyRX/Tv2c+qItHTf+oT4oBoeY+rYk/
TX3QvE+Tm3jS/HhhMflEE1+5iTdNvGn6x9z0/7mJx9zUk9yEk47lX6yJR038
aeIvN/VHE1+afkATD5r+UXNf1+Qfzfts+sSIF00/qekXNfcRTfxo+onc9IOa
+qTpL6rPP+2i1JGv983NfUQzH8gd6zs9N/3quIe6+pg7lvcIHR93po56ckzu
aF9OyE286+gv5uaOL//0dkc8jGjqt6Z+6+hfztfk7/6OeniRjvZiiea86ah/
12ru+zri73rNeczN+dQRrzfpiNdbNP187vjvmCb/a/rLdkc+/bamPujIp/dW
8bciN/2NjuN+f7u5j+SmH9aRjh/MTb+sI38/lJt6V8Xrw5r6lzvy/yM6wutR
Tb6r4nFj7vjlT+aO+H0mN/exKr63VPG9Vcf95jlNvdbMc3Lz7V1VfO/Q1PeL
i5m/6ojnAzT5VUf8Ttf0Azri9xBNPtX0n5r5rI56d7Imn7WbfKfpBzT5TdMf
5Oa+oslfmv4hN/dbHfHwGR3zlmtzk/9ycx/W8eV+UUd83KTjuNyi479juSNe
btfcr6r4ubOKn7vaHfG1tIqvZTr6y7tzkx+r+FqpyV+56a9yx3Vibe745Q9V
8bc+N/lM059V8bmh3eSz3BG/v8vN/VTT71XxuknHvGxzFa9bqvjcWsXjds23
w2ry1cSZb+e8pJh8l5t+U9NvavJhbvpLTb+ouQ9p8p+mX9TkQ838PDfzGh3b
N1czP9XkS02+1FFPz9LkS01/pykv/U1+zR3xuUSTX3NH/H5Kk281+VNHebpe
M0/Q9Iua+YKmf2w390Md/x1rN/fJKn7v0OTTKj6XafpNTb+pya+5ua8WD5F/
NffXiTPz8v6mv9X0o/1Nv6rpN3OTr3Wcn0c1+brd5G9N/u7veB/7SU3/qulX
Nfd/HcvznGYeoCPeX8nNPGBxavK1Jl/reB53gCYfa+77mn5Uk69zk781+Vsz
P9fc7/ubeUC7mQ/kJv9r8r9mntbf1A/NfEEzX8hNfdHUF838QJPfc5Pvc/O8
Lzf1ITf9tWa+0G7qiaaeaOpFdR5u0/G8/vZ2Rz9zZ7upD+2mfuSO43N3dZ7u
rc7Tytzk7+q8rMpNvs7N+85VPD+kmT9U8fxwuyO+H6nie4Mmn+dm/qCZN7Sb
/l2Tz3PTz+cm/+emHlTnY3vuOA8vVPG+o87/lxbzfkpu5hea/lwzv8jNPCM3
8w1NfWg39SM382TNfUCT7zX5PTfP83KTv/ubfK95XTQ3+V3T32vmKZp8npt5
iiZ/a+YnuZkfa+Ynucn3mnyem3mLJr/nJt9r7gea55PtZl7TbuY31flYmpv5
jOZ+0N/Ug9zcBzT1oTov9+m4P9/f39STdsf5fKA6j2vazTxJU5+q87Y+N/Wn
v7mvaO4n7eY+kpv7RrupX9V5f6a/mV9V+WJzlR+2aOZXuZnP56beae5DE2fe
/9D8c1mzmY9p7lOa+ZemnmrqZ7upn5rnA7l5n0DH+Z+puX+1m3qqI52crJmf
5eb+pLk/aepju7kf5Wb+pqmfmvqpmY9p6qWmXubmfjR5pv62m/uWZj6Xm+e9
mnrdbuZ97eb+lpv63t/0A+2mX9DcFzX1vt08n+lv+oXqfC+vzvfdufn+yOr8
r9Dx/tBKzbyv3dTv3NTzKl+szs3z7tzU+yqfrJ080z+0m34iN8/XNfU/N/fZ
Kj9t7G/ut7npFybPkZ435+Y+XOWvrZr7cW7mp1V+2p6b+3O7uV/n5r69pNn0
C7npHzT9Q7vpHybOzIP7m/mxpl+ZOjNPyM08QTNPyE1/pOmPNPPs/maerZlf
5KYf08wz+pt+rd30c5p+rb+Zj2j6O837KJp5d27m35rnnf3N+3YTZ/q9djOv
6W/eD9TMczT9YH/TH2r6O03/1W76s9z0a5r5fW6e97ab71er8uPS3Mx3ps70
h/3N84WJM/3nxJl5VpWPV1T5eGV/M/+q8vH9VT5eVeXfB3LT32r62akz/XKV
r9dW+Xpdu3m+026e/1T5+2FNP5yb5z+a5z+TZ/rtyTPzPM3zqdz0z1NnnmdV
9WLzxJn+Pjf9fm76/arePNdu+n9Nfz9x5v3h3Lxf127uF7njffpXqvo37fJi
nu/1N/eR/uZ5Yru5v2juH+3meePrZ+azmvtHu3mfpr+5z/Q395/c3H9yc//R
3Gf6m/vP5Jn34zXz6v7m/tRunidr7k+a+1C7o96OTJy5b+Xm/qWZr+fmfdX+
5vn21Jn5f7u5n2nuW7mZz7eb+5nmfjV15nl8u5nHv36Of8Y0z/cnz8z/c3Of
bDfvE+TmeUFVD5dW9WlZf/N+2tSZ++ieY+6z7ea+OnHmeU1/c7/tb+7DuXnf
o6qvq6bO3Lfbzf24qsdrckd9XlvV53Wa71dqN8+DJs/crzXfD9XfvM+y55j7
+hvXzAPeOGZe8X+/Xub57Z5rnh/n5v2x3LxPNnnmfbR2M2/SzJs076dNnJlH
9TfzJ837bVNn5lV7jnmfb+rM919Nnvnnikkz7y9qvj9MM5/Lzbxu8sx8T/M+
Qe7/AHwgEwo=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], StrokeForm[GrayLevel[0.]], EdgeForm[None], 
    LineBox[CompressedData["
1:eJzt3A+o3lUZwPHXlVqaaTbT1NKV5p+sqU1Ts+1dM/8357+pBRaaYIgVlmSC
cTHEGC3BAkMWshCWYIzFZTEaxjIWtrClYIOJ3VjaaEpqKZWt2vt833u+dObD
Tj/ueyfSJbh8su7ue85znj/n95uzrvnCJdfN6PV6G/fu9Qbf//vrqv7//Rry
2JU7+Yw9Z6+YePr+ea/uKxKP494V/SfuXP+PjVf+dPjPF/+PvrzypcOf//Pi
bwz+8RG/bHNvFx67ZPjn/bqbe/U/v7h/91Hn7fjPY80efLqZa598dfcuHv78
3xXPmzP4byZe3WOL+s/MXLvs9nu2NJv1/cPw5y3qL31p+aq5c55JfFHlhTt5
8Nsvu/2Pu/S/4+vCfvz6G7fu0vz/Lxju35+Kn1x94+bVN25LfN5wPZ8d+tyd
zPr+OfE5lc/uHzRYvkufH/qs4frn/tyD++9YoheazY9/MTX795fiA2ID/jr0
gsrzK/eH+62vve36wW9QzH6+XLzv1QvXbTjub8Xsh45/fMvfU+/4YYP/R7PZ
v1eK49ed+c9i9k8PVuemff6V+oeD5V2l2b9ef9LH33L6jj8i9+CnXb1wj2KW
S3OeZ/T3CJ/Z/0EEeG727w3Fr+yI5kO3afbrjcXx4+/W7J+O5T59z+Hvc8Zw
//Ya+rT+92OBNedv7+KXB//zJzT7/abiHb/cgmtv0+fHB35zMedxn2L2c9Kn
7uT4nx+6b2r2f9Jz+ocN/vjr35L6k/EL7jf0yTv585sHP1ATH28tJj4mfeLw
vO9fvE+sxwHFR8Z6aM5D7ti+o95WTDxpzr/+UvyBmvU9sJh406zf24vj496o
Xxj8ces08aY5XzOL4+Ndn5v402dFAjmo+KpYf8365/567Mc7iolfTfzmjuVb
pX81OA2zDx6ejxOG+6mJfx0f70FNfjikmP3U7N87i8l3+muRH/T3IuAOHf5+
xw7Pgya/a+L/sOL449Zp9k+zHYcXkz/0RZEf3jX0Uf2vDNLbRO7YjqvfXcz5
0KzvEcWxXU9o/vwji1lPTTxpzpMm32nysY5f9+nc1F9NfM4a+shdmvOqWT/N
fmvOr45fd0ITz+8p5vxq4lcTD/o3g+1e8N7i30f85ua868l1mDT5XbMfmnjX
lGfNeh1dfFkEqOb8a9ZLk9805/99xeQ7TTxqzpP+UfyCmnx4TDHxqskHmu/H
Fsd2zNXEr6b/0MSf5vMfV33+3MSLZj2OL/5mxI/m8+cmP2r6D03+0T+L9uH9
xcSbJj9q+gU9mecmTT7S1E/NemrOu2Z99SmxYZp41MTjB4o5r5p+oN3sj/5y
fABNfH6w+NvxAXSk7836FxGPs4uJR0291pxnTb+oyf+a3+fEan018aGJD03+
0Zx/TXxr2s2Tijlvms+nqZea9c3NPKLJr5p41LHcqzX1UrNemv5d8/3k1MSz
Jp/rSNc3afplfXTEt2a9NeurWd8PFVOPNOdTk381+U0TX5r40rEcyzX9WW7q
veb7nGLiUVPvNPVGs165Ix0s0+QHTT7T9Kea9TylmHyh4x/P1qxXbtZPE6+a
86qJV8165iZ+NfVBE8+aeNZ7xQKdWu2HZj80+SE366+JX81+aOqx/nEcUE1/
o9mPDxeTL3IT35p+WbMfmvyhWV/Nemrmw9OK6Zc08Zub864jvFZo1kezHpp6
cXr1eTX9hSY+NfGp+fyaz6+JL03/cUYx/ZCmvmg+vyZ+NOuhiZfcxIumn9fU
m48Ukw818aBjOe7R5DvN+dP0N5r4yE28nFlMv6OZh/R3I6A19xma/KfpjzTz
kGb9NPGlWU9NftTkx48W0z9p6oumX9LUb83506x3bvKjZv0186nm+9xq/TXn
VbP+mnlCE7+a9df0S7nZD83652a95xVz3nWE1wIdvFZzvjXnW9MP5aZ+a773
izn/mnqi6e8050+THzT5Kjf5SxNPms+rqa+a9dfUJ8350Myfmvynycea+xxN
PtJ8n19MPdP0j5p6nJvzp1nfdlMvNOutyY+aeNasr2b9NPVD039p8o0m32ji
62PF9Lea+2zN59P0L5p8qjnPmvjS9Oua+NLkL816aOZpTX3X5DNNPGrmK816
aeYBTb3RfF9QTLzl5vxq4i039UuzH5p6oMmnmnjT9AOa9db0l5r6oDnfmnqt
ya+a/KY535r11JxvzfnW1JezqvXSzIOaeqOJV01+1MRvbuJZkx9zc7+t6R80
8axZ/9zUl9zcD2viW3P+NfOK5j4nN/H88WLyqaZ+auq/Zn808azZD836a9Zf
kz80/UJu8klu1lOTLzTxrol3Tb+kiXdNvGvWX5OPzy4mvjX1XrOemvysiXdN
vsjN+mvytaY+aeJTky80+UJzH65ZP028avJHbtZX0y9o8ocmfs9JzTyT+ZBh
fdTshybfaOZlTT+gqf+a5y+a9dbEqyafaOJXs/6aeqiJZ01/oekvNP2FJt41
9VOTbzTxn5vzoMk/mu/nFlMPNPlHs1+afKOZp9vN+dKcL02+0tRfzXnS1AtN
Pdbst2Z/NfuXm/2c9AHD/dTsl/5qnCfNedKcp9x8P6+Y+UqT3zT5TfM+g6Z+
6G9FAtC0D7k5f+3mfGr2r7vZb009ys1519zXaPoFTTxo5ksd270hN/uvyaea
86mJB02/lpv4qPf//GLyryYeNPfBmudvmvOpOZ+aeqbZX02/rOkvNP2yJj9r
9iv3Z+P85mZ/NfOLZj8151lTLzX5WLOfmnys2S/N/lxQHMt1hGYeyc36a46z
pt/IzX61m3yrOX+a+qo/HflWXxP7kZv7Sk391OyHJr9q7jfazXnMzXnU7J/m
vOUmH19YHB9n/9z095p+SBMfmnjQ9Eea/kgTH/q38QMn3Rvub272V3NeNfOX
pl/S9Eeafl9TT3Oz35rn45rzqNnP3JxP/ZPIt5r+SE++lztp9vcTqdlPzX7m
pn/S3Idpzq9m/3Kzf5r6qKmHudlPzX5q6qNmPtHst2Ze1uyvZl7R7K9mfzX3
45pvC4vZj9zUQ0091OyH5nzlZj7Uj0V+1uyfpj7mZt7Ozf5o6qFmPzT9i2b9
c7MfmvlR09/kZn7UvB+iqZea85ab/buomPqpOW+a/jY3+6c5b5r+VpM/202/
q9lfzfON3JzXdpOPczPvaPojTXzoZ6NAac5vu+mnNPOsJl408aKJD839cG76
5e6O9ZmxqJj4ajf5RJPf203+yR3HYZYmP2n6AU18a14n0szn7Y7jdWZu+g0d
4T8/N/2rjvxydrN75FMd9WKRpn/VEV+LdfQDn9LMJ7kj3q7T0R/ekJvzlzuO
3825ua/QzEM6vsY0+T839xuaep6b+p47wvNeHfF6X+748ffnjvh9QNMf6giv
cU290pG/13Q380XuiO+HdMTvw5r6mDvC6VHNPJk7uKmKx6c0+VHHPLaliten
dYTP1ipet+no75+r4vXF3Pz1qCo+t2vy6cXF1G/NfaKO+NxPU89zkx9zkx81
+XDqHPXuJE3/kJv8mJv8qMmPOubXC3LTb2jyn2YeyM08nzvmpes0+U7HfHxz
bvKZjuNxa7vja6zdsfx3VPG1VEe9vit3xNt3ctNfa/qn3OQ7zXyk4/71Ac39
RxVvqzT5sLtjO9bo+PEPVfG4rorHhzX9nI56/GgVf49r8lW7yWe5md9zk980
/Z7mr5fmZv7IHcdjexV/vUtS89chNf2jJv/lpr/UUY8P1hGPh2vyoY54nKUj
/o7R3P/riL8TcjPv5qZ/1OS3dpP/ctMPTp/Jt5r+U5NvczP/5aYfbXecl89o
8nW7uX/XMY7ckJt5U3MfkZt+VpP/NfdNmvlUk781/Wx1fpZU5+MuzX1/dV7u
yR3PM++tzstyzfMCTb+am/yto39Yqelvq/Mz3m7yt6Zf1fSr1flaV8X3+iq+
N2j6UR33i5tyk79zx/Hdkpt8rcnXVTy91G7609zc11fxN+PS1PSvuSM+985N
vm83+b67ef8tN/cPmvqhqR/dzX2Fph/X1B/N/YWm3mj6b0290TEPnqqpP7m5
v9DUn9zUA83ff8tNvdDcT+Qmv2vyuyZf56Yf1+RrHefpi5r7iNzk69xxfm5t
N/cX7Y6/n3lHdT6WaO4vNfcXuenfq/i/Nzf3F1W8rshN/q/idWVu8n8Vz+O5
ue/Q3F/kph7kpj7k5v6/iv/1Vbw/UsX7htGZ+2HN/Uh1fjZX52dCMz/k5r6k
Ol9bq/PzfHdzf9Ju6lVu6ld1frZrvi4rpp5p6pPmPkYzf+TmX8eRm/mk3dQj
TT3R1BNNPdHUk9zUk9zUF0190dSX3Nz3aOqL5r5HU180843m9U/N86V2U380
90PtjvBa1G7mne5mHmo391eaetlu5qHc1FdNfdW8D6Gpn5p6qamHuZmHuju+
xjTPhzXzVG7mqyofLKnO/9J2M49p6q9m3tLcp1Xn/752M6/l5v4tN/U8N/dz
uZn3qnyyUnN/V+WX8SqfrK7yx9ru5j6vyifrNfd11Xne2N3c91XndZOmPlfn
cUJzf1edv63V+duWm+cXuZkPu5v6227ep67O6/bpM1+Xp+Y+MjfzraZfyM38
2m76Cc38OnXmeZGm39C8v56beVhzf5qbfkRzn9puns9r+o/uZt7NTX/S3fQz
mn5G08+0m/la0890N/2Jpt9od7xvtrjd9Cea/qS76Vdy8zxudOb+oN3cL2ju
g9vNfbGmf9L0S+2mP6ry35jmvnn3mf6ryqd3Vvlx6dSZfkxzP56b+/Eq3y3P
zf245j6ku+mnctNfVflzVZUPx9tN/1XlyzWjM/1alU8fys39fW6ez+bm/iZ3
5M9H2s39TLvpN6v8vLHKv493N/1mbvrPKp9O5Ob5hOZ+SNOfjs4Rjs9p7ofa
Tf/abvrX3Nw3Vfl1++jM1+Jmc7/VbvpbTT+r6U9z02/qyJ8Hap63aPrP3PSb
ozP3aZr7tNz0s7m5X8vN/Zrmfi03/W+76Xc193Htph/OTT/bbvrZ6TP9cm76
Yc19oOb9hXbTH7eb/nh0pt/Ozfu77aa/1twH5uZ+sN30x5r7Qk3/227646kz
/bOmf546x9dYbvrj3PTH02eeL+bm+WJ3cx+qef5Y5e9l7eY+NDf/vogqX6+Y
PtPfT52ZB6p6snL6zLxR1aPx6TPzimaeyM3z3NzMC1U9WT868/xY8368Zj4Y
nZkf2s3z56rebMrN+/q5mTeq+rJFM2+0m3khN8+jq/rzYm7+vnNu5oPcPI/u
br6uSM2/v7vd9PejM8/P2808oZknNM/Tc3O/PXVmHsnN83nNfKGZL7qb+UMz
T2jeD2s380e7+fscrx8zH2nmn9y8v6C57283zwNyR72Z3928D6GZb6bPzE+a
9yVy8/xBM67mZn7RvA84OjP/aOaf7mY+mjrzPKLdzFu5eX9D8/6GZj7rbua5
7ubvS43OzHfdzfuZVT0eazfvo0ydeX5S1eM7p8+8H1PV86Xt5nlMu5kf283z
m9zMm7mZL6fOzKOa92/azTyZm/dx2s38qJnvqnq6qruZ17qb+a6qz2uq+rv2
tWPeN9p95nmYZp5tN8+3qnq/od3Mr6Mz8+vUmfl2dObf16OZjzXP40bneJ/i
qdzM39Nn5vvcvP/Wbp4Xjs68X5eb9+t2n7mv2H3mvkPzvl938/zz9eP/AJTM
opg=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJzt3H/M1VUdwPFHCq3MJMQ0tNDSFDNFQxIzuITgzwABCWuzprnZHNUsl7XZ
ntkczc3clM3maM7GRm5PazRHuZjNaDSylWVDF85RhjaRQkszjBn38/5y3vPQ
Z57uLtUfOdfdSx4enu85n1/n3EvHX/nZxVePGxkZmXPwyEj/9dX/XN77v/+X
vPzVHv3ofj5n/Olrt21fM/tfeuTf9Oiy6tcrj17W+b42j9S/vrS3ZeWm3Q8v
/1H36/ubr/9J9/VLel/r//KUn3Ve3H39Lztf+pq+/YQL9/776+77Vx5dVP36
sL1wP/N8v+m8oLdt+6QNq296NDXP/9vZr8Q/l/T6v3vShseL+f6/bzZ//h+K
b33hnnWzpj/V/XkXd3/+04kv2s/8fM+k5ud9tvOFlS/o3XTnkl3XvelPqdnP
P3c+vzd7ev+/7Oo8v/fpscP3PsJzxTzv88VP9X/cO//SeV7l83oTYgH+2nlu
tz77PKf3/RVb16/Y+mIxz/+34isWPPjQ1Bv+Xszz7079+Pr+N3y5+GNTJu+Y
e9We1Dz/K8VH9n/8JSM9PKt3yg0z9/7EI72Dwud265O7v7pXLDiomPXTrN+4
7vuf0/t2PLCOP36X/tXy/g/8uuL47be/vpj11PHjbhtfTPwdXPytvdqyUv98
av93HNL57G79Wz2j92L/229p96GxoW8ojuV7WPdX78GH3pj6mwRwcTzOptwR
HpMPLY7teVAfszcabrzmzanJp3YTX4cVf6Yf3ut1/PRXvCXx9O51Qvd6Zu+4
/re7UROPmnh7a+dpXb60m/jUn4/11sTrxNTE78Quvk/tfS/WX7P+RxTHcqzQ
z8V+HNF9v5N7L/e/fIeO8J40qZh6oll/TT7s8wm98/bu5tjhRxZ/NRb8bcXk
hyY/NPXhqNTkgybeNfF+dHGk21pN/OuLYoHfXsz+avZLf+Wa/n/Q1MPJxeSL
pr5o6ssxqePx7tSs/7HF1CNN/L+jmPjXX4z6pFn/dxaTD7nZHx3htHWfj+s9
20/fsSnF9WuE91RNvdeRbtfkJh91PM52TT/QxN/xxQv76TdTXx7rpePLb9Xk
o45ffkGzfu8qju29Ljfrp8lfTf5q4kUTH+8uJp91/DhbNK8npGZ9dSzHjZr4
0uS7Jn80631icZS7mZr11aynpj68p1pfTf3T8eOs1qyf/nH/jx9/UjHpqZmX
dCzHmKYeauL15Or5Nc8/tZj6oSNd1mv6q+b5T6meVxMvOsrROs08l5v1eG8x
8ZSbeU6zPpp+rqm/msc7tVo/TT/VZ8V6avpJ7tju3Zr8fl9q+m+7qZ+a+qnv
iP05rZj40+Svjh9n/OnF9DP9uyj4mvjUrHduXqcV0480+6HpJ5p6oMkvTTzl
ph5rnveMYvJPE2+tPrqLx9zMA5p+rVkvTb6dmZpxRlOPNPGsWT9NPGj6k6a8
vr+Yeql5fk2918SLjnJ6jyZ+Nf1M0y805xfNuD+9mHjS1KfcrIemv2jiS9Nf
NPVVk/+a+DqrWk/NemrWTxMfmvXS9CdNfMxIfXA8gCbfNPGjyT/NemnmR838
0G7qa27WV1OvNP3sA8XkryY+c1PfNPmqyVfNfKDZD018al7PLmbe18SjJl81
661ZP31iBFRu+q+m/mnyXROvM4s5/2v6lY7xY65mPTX9Sn8q1k8zj2vqn2b+
0Kyv5nyjyf9ziuPxZ2nWUzOv5CafNeuliacPFi+NB9CfiOfXnJc0z6upf5r5
TsfyTjm3mHzV34iBTpOfOsrpSk1908SLpt5p1kMz32jy70PFxIt+NB5A0w80
533NPKPZ31nF5FNu5p/cnB81+aVZH0190tQnTf7Mrp5fR7hcpemPmnlKE/+a
+NfU914x9V1343txl47VemjyV9OPND+v5vyl+fk187gmvjT1UxP/mv6vqV+a
/NDUA83rnGLmJU28auJHs3+afqip35p6p+kfmn6uiad2fyfWT5OfmvtNzXlH
s16a+UGTz5p55cPF1BtN/dPU19zEj6afaupvbu7HNPGjWQ9NfdXEl+Z8oFkf
Tb3X5NvcYvJNE0+a9dOsnyaeNOupycfc5Gdu7qM066/JX03+auJPk8+afNas
v2a9NfVLs965mfc0+Z2b1/OKyfd9nrCf6Sea/dLMP5r90cxrmv6rmSc19UGz
/pp+o1l/Tf5r1luz3pr41qy/pp9r1lvTz+ZV65eb9dTUU038a+JfU0819UNz
X6mJZ0090cSzpn5o4ldTTzTrqzkva9Zb058066mpJ5rX+dV6a843+qdRXzTx
qun3mvjVrLdmvXMzz2rqj+Z+WlN/NOdpTbznZr808a9Zf838pYl3zX60m/3S
1BfNfcP5xeyPpv5r8kGzX5r90uyXJl80+6e5v9XMs5r6ozkPaPqDZv5tN/VK
U580+aPJF83+aeYVzX5q6ldu5pl2k28XFLOfmv3LzX5q5mvN+VOTX5r+ockn
Tb/Q1DtNvdOc/zX5lJv909RHTX3UzFO5yU/9pdgfTb7pSJcdmv3R1EvN64XF
zGOa+qjZL/31yCfNfK8ZPzT5lTuWc4lm/zT9S1MPNful2Z92Ux819yma/dGc
JzXnK02+afJLs3/tZv/q/bqomP3R1ENNPmnWX7PemnqnyR9N/mjWv91Px/pr
ziea+wz9TOyH5v01zXlNUx819VAzr+Vmftb0L837axdX+5F7XhQYTX/T3Edp
3j7S1L/czBe5qY+5mUc08aDpd5r7OE085L4yCpLm/q7dzJOafpib/dfkn2Y/
czOfXFIc4Xe4Zl7X7J8m/zTzh+b8o+lnmv3T7Ifm81Oa/dHcT2rySVPvNOdR
zXpr1jc39VGTb5r+pf8R+aV/GPOi5v4kN/PGR4qZNzTzhGY/NPuh2Y/c3O9p
9qfd5Jvm/jY351/N530054Pc3Jfl5rygiY/cxIdmPtXEg/5CLLj+QRRszX20
Zn7JTT4uKKbfafZbc17W7He7mWc0+6mpl7k5P2j2R9NPNfOM5nyQm36qmT81
84ueFl+gmV805wfN/KE5z2nmS818onldWEy+auZLzX5pzmea+qiZF3Oz/pr3
CzT1UtOvNOutmU8066tPi/XVzCOa9c7N/KiZHzX9SzOfaPZDsx/V841bVBzv
Hx7W7piXj8pNPmo+PqfJTx395yQd9eVUzfld8/GOdjPv5ia+NPVex/xwsSb/
c1PfdezfxzX9u92cd3Ts97U6/rjP5Sa+dcTH9TpeRnOTD5p80DHf3qI5P+vo
x7fpCI+7NPWqip+7c9OPdKTPvVX8jFXx890qPtbp2P77cjP/6OgH92v6XRVP
D+Tm/Vgd6bA5N/Nru6nf+zxCPD6iqS+a+pKbeqPpBzri84+54/y4UzNftzva
wUs67tf2aOrZpamZFzQfp9fUL815TMf2HqupZ5p6lpv6pqlvOuJrxvDMvKKj
PM3Rkb7zNf00N/VMR/wsazfza7sj3j6p4zx+tab+ae4nNPWu3cxfmvlLMy/r
WN6bc1Mfq/i7JTf1UUd6rcod89JdVXyu1tTLKh7XVPG4Njf1UjPftzuW835N
fdTx5Q+0m/NkFZ+bNfVPRz/+haYeas6j7Y7f/pimPlbx+4SO/v1kFb/bc1Mv
q/jeoZm3Bzf1Mzfnac3L4tTM7zri/RDNfZfmPK7jvDIxN/cpmvqrmS9zx+dB
jh/c1Ovc1G/N/dyBM/Os5nyqIxxnaObb3My7mnqvmWc19V9Hfiwb3MzDmvrf
bvqDpj/oaN/Xtpt5uN30C02/0MzLVX6sbDfzc7vpH1U+3V7l0ypN/8jN+bbK
r7s1/UTz/laVH2O56S9VfK+r4vu+dtNfqvh+QNM/Bjfvv1X5slnTfzT9psqf
RwZ33Ac+pqO8PjG4med1HHef1Mz3wzP9LHccr3a2m/6mY557vsrPl3JzH1Ll
757cnCeWFNPvNP1Oc1+Sm36n+bxbbs4ng5vzTG76q6afas4zuemP7aZ/avqb
5jyj6V86lufcdtPvNOchzX2Pjnyfr7nvz839kKZ/avqn5j6y3dwH6civq3Nz
X5Sb+6F2c17S9MPc9MfcfD5G0y+r/FqZm7/vkJv3MzT9Lzf3UVU+rNbcN1Xx
v6aK77Wa+6gq3sc0/U/TzzT3S1U8b2g3/U9z31TF+8Yq3jdp+pfmvkhzHtKc
hzT9pYrP7bnpB7m5P6ri8fnc3B9V8ffS4KZfVPG7p4rfcUuL+TyApl8Mz9xn
ac5XmvstzXlKU+8191m5qfe5eb9Gx33AGe2m3mvur3JTzzX1W3O/lZvzTm7q
uebtOx3hsGh4pj+0m/u13JyvcnN+0vSXA2fOZ5p+1G7u9zT9SdOfdOT/9bkj
n7/c7vjfUc19X7u579Oc33Jznms3/a7K91WDm8/Dac6HVf1YnZu/j6Ppj7mj
ftzbbvrpgTP3mZr+rLnf1PRfzf1lVZ82VvVm8/DM+VNz/5mb/l7Vl0c095+a
fl/Vk61VPdnWbu5Hq/qwvcr3nVW+7xrcvB9+4My8oDk/VvVj5LJi+nm7oz4c
1m7mAU3/bzefx8jN/JCb86PmfjU384TmvJibeWN45jzabu5nNfevwzPn3dyc
bzXz0PDM+Tg385bmvKyZnzTnYc38k5t5Jzf3yZrPWw1u7pc185FmntHMM5rP
c+Xm71fl5nzcbuaLdnN+zs3nN3Izn1T15bZ2cx9d1ZtVmnljcDN/tJv5RMf/
/9uadnPfnZvzv+a8r5kn/nvm8yztZt7JzfyTm/v0qn5srOrHJs18027mn3Yz
D1X15+HczEftZl7KzfvFg5t5SnN/r7lf0by/XNWnnZp5KTfzzuBmPtLcp7Sb
eSo3L8tScz8zPPP+t2Ze08xjmvv+3Nz3a+7vczOP5Wb+ys081W4+L6+Zh4Zn
Pt85uHn/IDfvl2vum9rN/KWZv9rN/NRu5qvczFvFI69l7rfazfx24Mw8qJnn
/nNm/tPcj2nef8nNfKh5/0VzfzW4mR9zc/+luf9qN+/XaO67NJ9nyB3/jA5u
3u8ZnuO+/ebczLua94s086rmPi038+vwzDw7uHn/SjPvDs98/qPdvF82uHl/
LTf3h5r7u9z/BJuMhxs=
     "]]}, 
   {Hue[0.67, 0.6, 0.6], StrokeForm[GrayLevel[0.]], EdgeForm[None], 
    LineBox[CompressedData["
1:eJzt3H/s1lUVwPGvVFqYaYaJWgkJ+SNTKTS1gi+CKFCIQIS1WYvcbM5qlsu5
2b6zOZrLuRkbjtmc5UZutEZzlsvciM1mNKMfwxbOKMIx0YaujFFkPOf9+d73
vA9nXB+/qH/Ems9eLr48z7nnnnPu/Twy+fNfXnzVuKGhoVmHDw31Xl/664rh
//s19MjyV+hPVV5W/Xm1P9nnC9909tptO+6d+VLff2CPLB3+1iN7Ny8/+VcH
9tDS4S0re//iN8V3TJm3/3+/a/PIkpdt3t8fup/3Mj2yuM/bdkx46K6bHy/m
8/2p+/0Hd++nTXjoiQN75PI+E68/H9hDlw/PnN77N9tSE4+/pn6q93FWby/m
8/4t9W3/vGf9jOlPpY4/fvPOA3tkURePp5v9xAPXbn3g2l3dzzuYLyt+MX59
vM/E95k+Hxa//5X75tVLdl83/u/d+1kwfFwvvEt2d55/ULN+ub+47uj9IX+u
mN/+fPExsSD/6DyvWz+94qarez+h+Ce98Gx9oZj8/lfnS4ePvHLhhk2n70nN
eu0tjj9uwn9SE69RX9LF67/N/mHv46/X7IcXm028h4bx3D6fccMF+99ybtYj
88XDvXd75cLDOs/pM+s1LvVvl5984q7Zbyhmf476om5931jcW439b7GY9R3c
39u/m7esPLzzrMrDfSZ/Rj2jy58jhtkPH+3y5c3F1IPc86NAvaXP/PwLu3wb
X/xdEqQ4wr3hyGLy7a3Fc+IDH1X86V64V+SOn37l24oJ99GNPr/P5KN+Zna8
odTk3zHNJp6a/Bz1eX2eF/F9e3Es1w2aejPq6V38jy3+QSx4u8l3Tb6/o5h8
18/FemrqyYRi9oPurd5NV2vqn2a/HFdM/usI5zb9zUiAd3Y+p8t3/YtY3+OL
f93j2Trezjr9Qq9dbtHUn4nF8dvXTuzy/8w+U09OKP5GlPPcrNeJxaxHbv7v
JxWzPpp+qtlvOsaLO96Vmv2o2W/vLmY9NNv7PanZn+2mf2j248nFf4n6pcfH
hphUzHpNqj5Pbvajpv5MLmb/6csiPzX7MTfx0pGeD+ivxgfQ5LcmP95bzHyo
74z46di+12nyR1PvTilmP5xSxfuUKt652T+52d5Tiuk3mvqgI91u0tTPKdV6
aerF1OKlkfBTh4NDp3Xrob8U8dfEOzfxf18x87RmPXSk112aeqqpR6cWE39N
/DX1SBPP01IT39zEV7MfdHz8HZp8P73Z5LcmnvrbEb8zqvhp5gVN/mrqu6Ye
vr+YeqjJR028ziym/ukZkWCaevCB4ijf92jySX8t9rOmHp5VTP7o78Qb0NQ/
zX49u/iX8Xk1+aPZn5r6rw+Pz39Oauqnpj5r4qUjHOs1+aTZr5r80sw7mno7
rfp8mnzTV0RCa/qfZl7R5Kdmf2leP1hMvmjio6m3mnzVxEMTD0190Hz+DxVT
33S8/Ws1n08zj+l/99Jll+Z1ejH5qakXmnzVfH7NftWcPzT1W/P5NZ9fs9/O
rT6/Zr01+a6ZhzX7U1OPNMdtzTxxXvX5Rz2l+/ya/aGZbzX9QLNfNPmhqW+a
+Gjy/8PF9LfcxENTDzTx0LyeX0z+63j7MzTzh2Y/aPJBMy9r4qGJh6ZeaOKh
qYcXFHMe1ZH+szX7R5M/mv2kiZ8mfjq4KTfx1bxeWEy+afqjJr808dTUG008
c8dvf0STb5r55CPF9FdNfdLMW5r6qyO8qzX7UTP/auKlOS/p0XuHUZOfmnhq
5kt9UuxPHeV/paa/afZv7h9HPPW5Ud808dWcd/XPIp818f5Yavqhph5o5h/N
+U1THzTzkWZ+0V+P9dC8zihmPtbkq2be1FMjvvqcCKimP2j2v2Ze0MxHM4vZ
/5p4ac7nmnqg2f+a/azJT91d1xZzHzFcTD/TvB9Nf9H0F02/y83716yvnhTx
19Q7Tb5r8kFTPzTzhSb/c7OemnlE8zqre53UzSOa+Gn2g2Ze0eS/5nyhWX/N
eUvTvzX1TJPPmvhp8kcz/2jiq+l3mvqsiZ8mfpr807xeVEw+auqlpp5r4qmZ
vzT1VJN/mvzS7HdNfDTzgKY/aOKj6b+a+qrZn5r4aOpHHZ/Zqalvmv2riY8m
/zT9UVMfNfNzbvazpv9r4qk5n2rimZv9qqMcbdHEU1OPNfPYqCd2+3dOMftX
k2+aeGryKzf7WTN/avav5nmHJn6a+OWm3+dmf2vO75r9rNnPmvjmJr65eb24
mH6oibdmf2v6jyZ/cxNvTT/S1ANN/mrir4mnpj5q+o+mHmjmR815XlMfNPHN
TX5r6ocmn+cWc3/SbuqJJv81+a6Jvybemn6Um3qsib+mf2nyX1NPNPmuWR9N
fdGsl6beaOKvib9m/tecTy4ppp9p5n/NfKyJr2be0vR7zfykqSea+31NPmvy
WdO/cpPPmvhozg+a/NTcX2peLy2mPmvyWXOe1uSnpl5o+p+mPmviq6kfmnqh
yU9NPmriq5kfNPmmyTdNfdDkm2Y+0NTTecXMB+1mv+cmP3Nzf6GJr2ae1cwX
mvhq6rGmPmjir78QCaZZj3ZTLzTPzzX3sZrz1tiZeSY3/UGTD5r6k5t80dSn
+cXkg6YfaPabJj8051nN44Dc7EdN/9DsR835R9NfNPOoJn80+aPJH03+aM4D
mvsr/XTkh6Y+atZLsx6a+C+o4q85P2rmI008NftNEz9NPdPET9NP9Gcjfpr4
5f5+xFPTrzX3a7mpl5p+runfuennmvqqqaea9dH0L835Vf885lnNemr2lx79
Ht+oqc+ar+do1lvzdQLN+rebfqjZb5r9pskXTX5o7iM1+ZKb/NHMI5r80Ky/
Zv019Vmz/pr1z83+1PTb3Mw3mvtSzXyjuR/VzDf1+n+imPkmN+upmRdzM+9o
+rNmntSsv+b8r8kHTf3Q3NfqEyI/NP1c87wlN/mhqc+a+VWTP5r80Ky/5j5Q
c3+sfxr1QHOfrGN77srNeVcz7+ZmvRcW019HfUzXXzX5oDkfa/Z7u8kXzfN9
TT5o+m/uSKcVmv6rOe9p1luzvpr+q6kPmvlMc5+hua/X3GfkZt7Skb5bNf1B
M3/lph/kpt9flprzoiYfNPNWu8kXTT7kpn5o5gvNPK+jnS/JTb5o5v/c5I8m
fzT1ITfzmub5qCZ/9FmRL5p80Ky/Zj9r1rd6P0csKmZ9dcybR2nOtzrOJ8dr
5gPN1x81+ZE73u5kTT3R9JN2R7k/U5M/uZk/Mg/1mX6leRyi6V86+vUCTf3S
0b8X6VjfZZr8zB3r/zkd6XCV5j5X0/9yc17RkU/X68inG3PH+eGW3JFPt+uo
J6s059/ckT5rNPOYjvy5V3N/pGP57tf049xRbx6s1v9hTf+u1n9jbua5Kj82
5Y7y85imP1T58EfN+UHH9n5Sx/y8XXOeGDszb2jOI1W+7M0d94X7NC+XN5t5
Njf1TFO/NPVLU6809UpTr3LT3zT1SVOPcsf8ME1Hfp6n6Ye5qU+a/qgJv2a+
1tQjTf3RzN86zh9XaeqPjny5RnM+yx1v5ys68ul6HdvpRk0/1sxzVT7coqPc
3Vrlx+3tZt7X1LN2U990zNtrqvy7u8qn+6p8+VFu5s92Ux8194ua+4vc8eMe
rvJvg+Z5no5++Njgph7m5n4ld+Tvk+1m3tLU0yr/d1T5/GyVz7s181pu/nPE
Kt/3Vvk9bnGzmf80/7mYpj7qOO8cm5vzQG7mRc15Usf8O1lTPzX1U3O/mJuv
f7ab+U4z3+WmnmrmvdzMf5r5Lzf1WFOP2x35vUzHPPAZTb3W1Gsdy3ONZj7U
1GPNfYlmXmw35ynNPJmb+q6572039b/K/9uq/L6jyudVmnqcm/kzd4x39+Wm
fueOcD2Ym3qcm/k1N/W6yueNmvk1N/Pr2Dny+/dVfm/Rj8f8q5l3200919yX
6Ei3ndV+eLbaD7t1nJ+er/J7T5W/+zQvS1JH/o7LzXzbbs77mvO+pv5r6n1u
nsflpv5r5m3NvK2Zt9sd96unau4DNPN2buZtHcfJaZr+oPm6dG76haZfaPqD
5n4zN/2j3fSTdtM/NPO+pn9onr9o7htyM/9r5v92029y0z80/WJw832V3PHP
kWo/3pyb+7+xM8+Dq/16e7s5r7Sb/peb80u1v9dU+/VuzX1NtX/X5qY/5qY/
Vvt3veY8o7nPyU0/1NzvVPt3Y276Ye7Y349q7nc055exM/0zN/fJ1X7fqumX
mn5Z1YPt1X7fWe3nXYOb85Omv1b7d29u+uXSYs4/uTkP5aY/as47mv6m6Ve5
uU9qN+cjTf9rN+ep3PTHdtM/NfdVmud5mvsrTb8cO9NfNc+HNP3y1TPnOU0/
1fRTzXlM0z8192OafnjozPMAzf1bbvpxbs5vOv45ojmfae7nXj/mvNhu+mlV
L1Zp+me7ed6cm+eJuemv7ea+sdr/66r9vr7dPF/RnF8151XNfaLmfFrt943V
fn80N+fLan9uHtz0U83zmGq/b9XcJ7abfju46c9VfdlRPPRyTX8+dKbf5+a8
rbkv1Zy3Neft3Pzy74XkvjQ352nN/KA5X+dmntDME+3m/N1u5hPNeVxzH6uZ
TzT3s+1mPsnNPHLozHySm/O9Zj7R3A9rzv+5Of9r5pGxM/cHuZl3csf5Y65m
HtLMK5p5ZXBzn5Cb++nBzfyk+f6DZn7KzTzVbu7DNffhmvtvzbyTm/mn+nto
RzT3B1V9WVnVk1sHN/PJ4OY+od3cp1f1aFVVj1YPbp6Xtpt5aXAzT7U7vu92
r+a/t9HcZ+Rm3ho7c1+Sm/uTdnO/kpt5Lzfz3+BmXqzq44aqHm6s6uEjVf3b
dOjM8+rczJPtZt7MzfMRzTyqmS/bzTz5+nW0u+25eZ6Tm/sqzTxa1ftnNfdP
7WY+rfrBnqof7MvNr4P9veaDm/sxzXzbbubfdjP/5mbezc18m5v5VjPftpvn
UbmZjzX3c5p5dHBzn3bozPzbbubjdnO/99qZ+VwzD7ebeVkzL7ebefrVM8/z
2s33jcfOzPeDm+8Tar5vr5nvNc8XNfO6Zj7X3F/m/h8J/jmt
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->True,
  FrameLabel->{
    FormBox["\"FAR (%)\"", TraditionalForm], 
    FormBox["\"FRR (%)\"", TraditionalForm]},
  ImageSize->{547.5000000000006, Automatic},
  PlotRange->{{0, 100}, {0, 100}},
  PlotRangeClipping->True]], "Input",
 CellChangeTimes->{3.50847426003125*^9}]
},
AutoGeneratedPackage->None,
WindowSize->{1070, 719},
WindowMargins->{{Automatic, 85}, {Automatic, 12}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 84, 2, 39, "Input"],
Cell[654, 26, 441, 10, 25, "Message"],
Cell[1098, 38, 441, 10, 28, "Message"],
Cell[1542, 50, 440, 10, 25, "Message"],
Cell[1985, 62, 528, 11, 22, "Message"]
}, Open  ]],
Cell[2528, 76, 533, 13, 148, "Input"],
Cell[CellGroupData[{
Cell[3086, 93, 114, 2, 39, "Input"],
Cell[3203, 97, 573, 12, 25, "Message"],
Cell[3779, 111, 573, 12, 28, "Message"],
Cell[4355, 125, 573, 12, 25, "Message"],
Cell[4931, 139, 662, 13, 22, "Message"]
}, Open  ]],
Cell[5608, 155, 330, 7, 39, "Input"],
Cell[5941, 164, 888, 27, 121, "Input"],
Cell[CellGroupData[{
Cell[6854, 195, 193, 4, 67, "Input"],
Cell[7050, 201, 224, 4, 38, "Output"]
}, Open  ]],
Cell[7289, 208, 221, 6, 39, "Input"],
Cell[CellGroupData[{
Cell[7535, 218, 2060, 55, 310, "Input"],
Cell[9598, 275, 399, 8, 38, "Output"]
}, Open  ]],
Cell[10012, 286, 1044, 29, 175, "Input"],
Cell[11059, 317, 2046, 52, 148, "Input"],
Cell[13108, 371, 5195, 118, 553, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[18328, 493, 1276, 32, 202, "Input"],
Cell[19607, 527, 265, 5, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19909, 537, 776, 19, 94, "Input"],
Cell[20688, 558, 351, 6, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21076, 569, 479, 8, 67, "Input"],
Cell[21558, 579, 411, 7, 38, "Output"]
}, Open  ]],
Cell[21984, 589, 179, 4, 39, "Input"],
Cell[CellGroupData[{
Cell[22188, 597, 689, 17, 67, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[22880, 616, 425, 8, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[23308, 626, 948, 19, 256, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[24259, 647, 339, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[24601, 654, 338, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[24942, 661, 338, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[25283, 668, 338, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[25624, 675, 339, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[25966, 682, 337, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[26306, 689, 331, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[26640, 696, 332, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[26975, 703, 1827, 50, 202, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[28805, 755, 782, 21, 94, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[29590, 778, 1622, 32, 368, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[31215, 812, 1268, 27, 423, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[32486, 841, 1256, 26, 425, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[33745, 869, 1059, 24, 437, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[34807, 895, 1373, 28, 448, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[36183, 925, 341, 8, 94, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[36527, 935, 4875, 94, 525, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[41405, 1031, 1697, 48, 202, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[43105, 1081, 18083, 306, 441, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[61191, 1389, 2459, 54, 148, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[63653, 1445, 3530, 73, 325, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[67186, 1520, 2169, 60, 310, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[69358, 1582, 1793, 44, 175, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[71154, 1628, 414, 8, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[71571, 1638, 335, 9, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[71909, 1649, 784, 15, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]],
Cell[72708, 1667, 87, 1, 67, "Input"],
Cell[72798, 1670, 6320, 110, 377, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[79121, 1782, 117, 2, 39, "Input"],
Cell[CellGroupData[{
Cell[79263, 1788, 497, 15, 94, "Input"],
Cell[79763, 1805, 215, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80015, 1814, 1188, 30, 337, "Input"],
Cell[81206, 1846, 161, 4, 38, "Output"],
Cell[81370, 1852, 135, 2, 38, "Output"],
Cell[81508, 1856, 134, 2, 38, "Output"],
Cell[81645, 1860, 134, 2, 38, "Output"],
Cell[81782, 1864, 133, 2, 38, "Output"],
Cell[81918, 1868, 135, 2, 38, "Output"],
Cell[82056, 1872, 133, 2, 38, "Output"],
Cell[82192, 1876, 133, 2, 38, "Output"],
Cell[82328, 1880, 132, 2, 38, "Output"]
}, Open  ]],
Cell[82475, 1885, 1251, 41, 202, "Input"],
Cell[CellGroupData[{
Cell[83751, 1930, 513, 15, 39, "Input"],
Cell[84267, 1947, 1707, 33, 416, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[86011, 1985, 1587, 46, 194, "Input"],
Cell[87601, 2033, 9795, 169, 423, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97433, 2207, 1493, 40, 148, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[98929, 2249, 3567, 70, 288, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[102499, 2321, 192, 3, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[102694, 2326, 1947, 57, 310, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[104644, 2385, 448, 8, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[105095, 2395, 310, 6, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[105408, 2403, 471, 11, 39, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]],
Cell[105894, 2417, 86, 1, 67, "Input"],
Cell[105983, 2420, 6421, 112, 301, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[112407, 2534, 338, 8, 67, "Input"],
Cell[CellGroupData[{
Cell[112770, 2546, 376, 10, 67, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[113149, 2558, 267, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[113419, 2565, 1202, 29, 310, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[114624, 2596, 241, 5, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[114868, 2603, 211, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[115082, 2608, 211, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[115296, 2613, 211, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[115510, 2618, 211, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[115724, 2623, 211, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[115938, 2628, 209, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[116150, 2633, 209, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[116362, 2638, 210, 3, 38, "Output",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[116609, 2646, 1681, 55, 229, "Input"],
Cell[118293, 2703, 1458, 30, 464, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[119788, 2738, 1374, 38, 140, "Input"],
Cell[121165, 2778, 3217, 65, 353, "Output"]
}, Closed]],
Cell[124397, 2846, 1560, 46, 275, "Input"],
Cell[CellGroupData[{
Cell[125982, 2896, 193, 4, 39, "Input"],
Cell[126178, 2902, 190, 4, 38, "Output"]
}, Open  ]],
Cell[126383, 2909, 368, 9, 39, "Input"],
Cell[CellGroupData[{
Cell[126776, 2922, 86, 1, 67, "Input"],
Cell[126865, 2925, 6260, 109, 346, "Output"]
}, Open  ]],
Cell[133140, 3037, 338, 8, 67, "Input"],
Cell[CellGroupData[{
Cell[133503, 3049, 299, 8, 67, "Input"],
Cell[133805, 3059, 185, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134027, 3068, 1176, 28, 310, "Input"],
Cell[135206, 3098, 163, 4, 38, "Output"],
Cell[135372, 3104, 132, 2, 38, "Output"],
Cell[135507, 3108, 131, 2, 38, "Output"],
Cell[135641, 3112, 132, 2, 38, "Output"],
Cell[135776, 3116, 132, 2, 38, "Output"],
Cell[135911, 3120, 133, 2, 38, "Output"],
Cell[136047, 3124, 132, 2, 38, "Output"],
Cell[136182, 3128, 131, 2, 38, "Output"],
Cell[136316, 3132, 132, 2, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136485, 3139, 1743, 56, 229, "Input"],
Cell[138231, 3197, 1698, 34, 441, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139966, 3236, 1444, 41, 148, "Input"],
Cell[141413, 3279, 3377, 68, 332, "Output"]
}, Closed]],
Cell[144805, 3350, 1560, 46, 275, "Input"],
Cell[CellGroupData[{
Cell[146390, 3400, 337, 7, 39, "Input"],
Cell[146730, 3409, 322, 6, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147089, 3420, 327, 7, 39, "Input"],
Cell[147419, 3429, 204, 5, 38, "Output"]
}, Open  ]],
Cell[147638, 3437, 372, 9, 39, "Input"],
Cell[CellGroupData[{
Cell[148035, 3450, 83, 1, 67, "Input"],
Cell[148121, 3453, 6277, 110, 346, "Output"]
}, Open  ]],
Cell[154413, 3566, 338, 8, 67, "Input"],
Cell[CellGroupData[{
Cell[154776, 3578, 299, 8, 67, "Input"],
Cell[155078, 3588, 190, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155305, 3597, 1126, 27, 310, "Input"],
Cell[156434, 3626, 140, 3, 38, "Output"],
Cell[156577, 3631, 111, 1, 38, "Output"],
Cell[156691, 3634, 109, 1, 38, "Output"],
Cell[156803, 3637, 108, 1, 38, "Output"],
Cell[156914, 3640, 110, 1, 38, "Output"],
Cell[157027, 3643, 109, 1, 38, "Output"],
Cell[157139, 3646, 108, 1, 38, "Output"],
Cell[157250, 3649, 109, 1, 38, "Output"],
Cell[157362, 3652, 106, 1, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[157505, 3658, 1674, 55, 221, "Input"],
Cell[159182, 3715, 1959, 38, 438, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[161178, 3758, 1445, 41, 140, "Input"],
Cell[162626, 3801, 3632, 72, 364, "Output"]
}, Closed]],
Cell[166273, 3876, 1562, 46, 275, "Input"],
Cell[CellGroupData[{
Cell[167860, 3926, 307, 6, 39, "Input"],
Cell[168170, 3934, 190, 4, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[168397, 3943, 227, 5, 31, "Input"],
Cell[168627, 3950, 158, 3, 38, "Output"]
}, Closed]],
Cell[168800, 3956, 411, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[169236, 3970, 87, 1, 67, "Input"],
Cell[169326, 3973, 5610, 98, 301, "Output"]
}, Open  ]],
Cell[174951, 4074, 324, 8, 39, "Input"],
Cell[CellGroupData[{
Cell[175300, 4086, 298, 8, 67, "Input"],
Cell[175601, 4096, 216, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175854, 4105, 1121, 27, 310, "Input"],
Cell[176978, 4134, 113, 3, 38, "Output"],
Cell[177094, 4139, 83, 1, 38, "Output"],
Cell[177180, 4142, 88, 1, 38, "Output"],
Cell[177271, 4145, 88, 1, 38, "Output"],
Cell[177362, 4148, 87, 1, 38, "Output"],
Cell[177452, 4151, 87, 1, 38, "Output"],
Cell[177542, 4154, 86, 1, 38, "Output"],
Cell[177631, 4157, 88, 1, 38, "Output"],
Cell[177722, 4160, 87, 1, 38, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[177846, 4166, 1810, 57, 221, "Input"],
Cell[179659, 4225, 1692, 33, 396, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181388, 4263, 1472, 40, 148, "Input"],
Cell[182863, 4305, 3545, 71, 382, "Output"]
}, Open  ]],
Cell[186423, 4379, 1563, 46, 283, "Input"],
Cell[CellGroupData[{
Cell[188011, 4429, 355, 7, 39, "Input"],
Cell[188369, 4438, 190, 4, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188596, 4447, 271, 6, 39, "Input"],
Cell[188870, 4455, 161, 3, 38, "Output"]
}, Open  ]],
Cell[189046, 4461, 415, 10, 39, "Input"],
Cell[CellGroupData[{
Cell[189486, 4475, 87, 1, 67, "Input"],
Cell[189576, 4478, 5625, 98, 371, "Output"]
}, Open  ]],
Cell[195216, 4579, 158, 4, 39, "Input"],
Cell[195377, 4585, 194, 6, 39, "Input"],
Cell[195574, 4593, 513, 14, 39, "Input"],
Cell[196090, 4609, 91, 1, 39, "Input"],
Cell[196184, 4612, 158, 2, 39, "Input"],
Cell[CellGroupData[{
Cell[196367, 4618, 1540, 38, 121, "Input"],
Cell[197910, 4658, 169469, 3928, 359, 147964, 3574, "CachedBoxData", \
"BoxData", "Output"]
}, Open  ]],
Cell[367394, 8589, 245, 3, 175, "Input"],
Cell[367642, 8594, 6238, 109, 326, "Input"],
Cell[373883, 8705, 6442, 113, 334, "Input"],
Cell[380328, 8820, 1309, 29, 94, "Input"],
Cell[381640, 8851, 88, 1, 39, "Input"],
Cell[381731, 8854, 34004, 573, 445, "Input"],
Cell[CellGroupData[{
Cell[415760, 9431, 18011, 305, 359, "Input"],
Cell[433774, 9738, 16673, 282, 360, "Output"]
}, Open  ]],
Cell[450462, 10023, 34288, 578, 440, "Input"]
}
]
*)

(* End of internal cache information *)
